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(57) Abstract 

A system for alerting and cueing a weapon system (34) to detected targets, the system including a sensor (2) for pro- 
viding target data to a computer (24) and for providing weapon system (34) location and pointing data to the computer 
(24) for calculation of the relative directions and ranges of the targets from the computer (24). The weapon system (34) is 
remotely located from the sensor (2) and may be a portable launcher. In the case of a particular target (6) being designated, 
the computer (24) calculates the errors between the pointing direction of the weapon system (34) and the location of the de- 
signated target and communicates these errors to the weapon system (34) sight (32) for guidance of the weapon system to 
the designated target (6). The computer (24) has multiple, selectable displays one of which is a situation display (78) for 
presenting the relative directions and certain characteristics of the detected targets and another of which is a parameter 
display (80) for displaying numerical data relating to a selected target, and in one embodiment, the computer (24) may be a 
portable computer. 
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WKAPON AUTOMATIC ALERTING AND CUF TNG SYSTEM 
BACKGROUND OF THE INVENTION 

Air defense weapon systems have been configured in the 
presence of many conflicting requirements and environmental 
factors, on the one hand, it is desirable that a given 
emplacement or unit of air defense weaponry be small, relatively 
inexpensive and have a limited suite of sensors in order to 
maximize the number of units deployed and reduce their value as 
a target. On the other hand, the increasingly sophisticated 
aircraft and missiles that are the targets for such weapon 
systems have presented more and more difficult acquisition and 
tracking problems for the relatively simple engagement systems 
that are part of such air defense weapons. 

The development of handheld or so-called "manpad" 
weapon systems has substantially improved the capability of such 
small and easily deployed air defense- weapons. Weapons such as, 
the Stinger missile, which .is a heat seeking manpad launched 
guided missile, had dramatically improved the air defense 
capabilities of surface-based military units. However, there 
still remain the extremely difficult acquisition and targeting 
issues for such weapons. Absent some sort of warning, cueing 
and ranging capability, manpad weapons may not be brought to 
bear on the target with sufficient time and launch window to 
provide for efficient engagement. Furthermore, such manpad 
weapons are severely limited under adverse weather conditions 
due to the requirement that the target be visually acquired. 
The result of these problems is either a failure to launch the 
missile or a miss due to failure to acquire or launch when the 
target is within the proper range. While personnel training can 
improve performance of manpad weapon systems, there still 
remains a serious problem with regard to the consistency of 
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performance and effectiveness of such weapons against a variety 
of targets.' The addition of new sensors to such manpad weapons 
to overcome some of these limitations would either render them 
inappropriate for manpad use or complicate their use and 
deployment and increase their cost beyond acceptable limits for 
their point defense mission. There, is , therefore, a requirement 
for means to inexpensively augment the target acquisition, 
tracking and firing capabilities of manpad weapons.. 

SUMMARY OF THE INVENTION 

The present, invention provides a means of economically, 
reliably and efficiently presenting target acquisition, ranging 
and firing information* to manpad weapon systems, such as the 
ones commonly used for air defense. The invention accomplishes 
these desirable functions by processing; information from various 
sensors, correlating target information with weapon system 
location, and thereafter .providing refined data to the weapon 
system that allows for rapid -acquisition, tracking and firing of 
the weapon by the human operator using a modified version of the 
normally supplied visual sight display. The invention thereby 
provides capabilities to relatively unsophisticated and 
inexpensive manpad weapon systems that become the equivalent to 
a -co-location of sophisticated sensors with the weapon system. 
This desirable capability is achieved without the cost, 
complexity and difficulty of deployment associated with more 
elaborate point defense systems incorporating co-located 
sensors. The invention uses a hovel combination of radar target 
acquisition and tracking, optical tracking and infra-red homing 
when used in combination with heat seeking missiles such as the 
Stinger manpad weapon system. Previous weapon systems that use 
radar for acquisition and tracking have had co-located sensors 
and presented tracking information to a visual situation 
display, if one was used. The present invention uses the human 
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operator as a means of completing the tracking problem, whether 
the missile "or other weapon has self-contained tracking or is 
guided by the human operator through his optical sight. Thus, 
the invention combines the best features of radar, which 
provides relatively long acquisition ranges and velocity 
information, with the decision making and tracking capabilities 
of the human operator when the target comes within visual range. 

The invention further provides a beneficial effect in 
that it is unnecessary to locate a central major computer system 
near either the radar or weapon system, thereby further 
dissipating the resources of the system and avoiding the 
creation of a high value target. Such a distributed weapon 
system also has the benefit that a loss of one or more weapon 
platforms or sensors does not render the system incapable of 
continued operation. Such a capability is particularly 
important in a modern battlefield scenario and especially 
considering the "one shot" nature of many of the weapons that 
would be controlled. The invention also can provide for 
displays to weapon system managers that indicate performance and 
status in real time during an engagement. While the system has 
been configured with a small computer terminal co-located with 
the weapon, it is also possible to use other configurations of 
distributed data processing via co-location of portions of the 
data processing resources with the sensor systems, intermediate 
communications, command and control functions and the manpad 
weapon. Such a distribution may be desirable in order to 
improve survivability of the invention in the hostile 
environments encountered in battle. 

The present invention utilizes the beneficial 
arrangement of well known components and components specifically 
developed for the invention to provide heretofore unavailable 
capabilities in an air defense system. One of the components 
used is a sensor or plurality of sensors providing input data 
describing to the range, azimuth, elevation and signature of 
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targets in the airborne environment surrounding the sensor. One 
type of sensor system that provides such information is a 
three-dimensional radar of the type commonly used for 
battlefield surveillance* For example, a Low Altitude 
Surveillance three dimensional Radar (LASH) , for example, a 
derivative of the AN/TPQ-36 artillery locating radar, provides 
target range, azimuth and elevation information to the system in 
map coordinates. Information derived from such a 3D radar 
includes signature information associated with returns from a 
target that allows the identification of targets as either 
helicopters or conventional aircraft. The information derived 
from the LASR may then be transmitted over a conventional 
digital radio link typified by the military Joint Tactical 
Information Distribution System (JTIDS) currently in use by the 
United States Military. This information may be directed to a 
communications and command station which can include a computer., 
capable of correlating the target information and the- known 
locations of the manpad weapons system and providing outputs of: 
refined data that may be displayed at the manpad subsystem for 
the purpose of acquisition and firing. An alternative preferred 
embodiment of the invention discussed herein can provide for the 
direct communication from the LASR to the manpad subsystem 
provided that a portable computer terminal capable of performing 
these calculations is collocated with the manpad weapon. Such 
computer terminals are readily available in militarized 
versions suitable for this purpose. In either case, the output 
of the computer is used for two purposes: to drive the visual 
acquisition and tracking sight of the weapon launcher and, to 
provide a situation display to the fire unit commander to 
indicate the location and status of targets in the vicinity of 
the fire unit. While it is not necessary that a fire unit 
consist of two individuals, one performing the tasks of tracking 
a target and launching the missile, and another performing the 
tasks of monitoring and designating the target displayed in the 
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situation display, it has been found that such a division of 
duties provides for an efficient operation of a fire unit. 

An important element in the transition from the 
information supplied by the sensor system to the visual tracking 
by the human operator of the target through the viewfinder of 
the weapon is the means of deriving azimuth and elevation of the 
weapon sight in relationship to the earth coordinates. The 
present invention utilizes a combination of inclinometer and 
fluxgate compass to provide this information. The precision 
fluxgate compass developed from commercially available units for 
the invention may be compensated for nearby magnetic fields by a 
simple rotation through 360 degrees, the resultant output being 
fed to the computer and normalized for the earth' 3 magnetic 
variation as part of the data base in the computer program. 
Thus, the present invention provides for rapid calibration of 
the sensors detecting ■ the inclination and azimuth of the weapon 
launcher. A digital output of those sensors is fed to the 
computer and a signal comparing these signals with the desired 
azimuth and elevation for acquisition is sent to the viewfinder 
for comparison by the human operator. The computer thus accepts 
inputs of target X, Y, Z and X, Y, z in the chosden reference .. 
system and converts them to range, azimuth and elevation and 
displays them in a maplike display in one portion of the 
computer screen while another portion of the computer screen 
displays numerical information relevant to the parameters for 
the target selected. The situation display also contains a 
readout of the azimuth and elevation of the weapon, thereby 
providing the fire unit commander with an instantaneous view of 
the status of acquisition and tracking. 

• The visual display provided to the weapon launcher is a 
modified version of the Stinger peripheral ranging system 
described in copending United States patent application for a 
Peripheral Vision Guidance Display having a serial number of 
06/673,257 and incorporated bv reference herein. In the modi- 
fied version of this concept utilized in the present invention, 
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this peripheral vision guidance system incorporates a ring of 
light emitting diodes (LEDs) to indicate the directions in which 
the axis of the missile launcher must be guided to acquire the 
target. In the version of the display used in the present in- 
vention, two sets of LEDs are used, one red and one green. The 
red LEDs correspond to the azimuth and elevation commanded and 
the green LEDs correspond to an inrange system. In practice, a 
blinking red LED indicates that the. weapon should be moved in that 
direction and when this red LEDs become steady, the axis of the 
launcher is pointed at the target. When the green LEDs are off 
the target is not yet in range. The green LEDs come on when the 
target is in firing range. 

By use of the invention, the operator may acquire and 
track a target in conditions of low visibility rather than if only 
visual sighting means were used where low visibility poses substan- 
tial problems, thereby extending and improving the operational 
capabilities of the weapon. Thus, the current invention provides 
for an efficient and rapid acquisition of targets by a two man 
team in. a battlefield environment without the requirement for 
collocation of sensors or elaborate resources. Furthermore, the 
invention utilizes simple and economic sighting and sensor means 
on the launcher that may be disconnected from the reusable launch 
tube and used. a number of times without modification or refurbish- 
ment. The invention, therefore, provides for a higher level of 
performance relevant to the training required without a significant 
increase in the cost of each fire unit, the overall cost of the 
system and its vulnerability. In practice, it has been found that 
the present invention provides a steering system so simple to use 
that first time untrained operators can steer to within 1 degree of 
the correct azimuth and elevation in less than 20 seconds. Train- 
ed operators can regularly ' accomplish this accuracy in less than 
4 seconds.. The. fire unit- may also be provided with an Identi- 
fication, Friend and Foe (IFF) sensor that can prevent, an 
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unwanted launch against a friendly target. Such an IFF sensor 
has the capability to electronically interrogate a target on the 
bore sight of the target and receive an encoded reply from a 
friendly aircraft, thereby providing a position warning to the 
operator that the launch should not occur. 

It can be seen from the above discussion of the 
invention that it provides hitherto unavailable capabilities in 
an air defense weapons system without unnecessary sophistication 
or expense. The use of proven and available components in a 
previously unexplored arrangement thus provides many of the 
features of complex and expensive air defense systems while 
retaining the relative simplicity and low vulnerability of 
manpad systems. Other features and advantages of the present 
invention will become apparent from the following detailed 
description taken, in conjunction with the accompanying drawings 
which illustrate, by way of example, the principles of the 
invention. 

BRIEF DESCRIPTION OF THE DRAWINGS 

✓ 

Figure 1 is a perspective of the invention deployed in 
a battlefield illustrating the relationship of the major 
components . 

Figure - 2 is a block diagram of the major components 
associated with the computer terminal illustrating the primary 
interfaces with the sensor system and the weapon launcher. 

Figure 3 is an illustration of a display on the 
computer terminal pictorially describing an engagement in which 
various targets are presented and the error signals between the 
launcher pointing vector and the command vectors are indicated. 

Figure 4 is an illustration of a parameter menu 
available at the computer terminal for operator selection of 
parameters to be displayed. 

Figure 5 is a perspective of the sight employed with 
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the weapon launcher which provides cueing information to the 
operator, 

Figure 6 is a view of the sight taken along the 
optical bore illustrating the cueing light emitting diodes used 
to provide information regarding azimuth, elevation and range of 
the target. 

DETAILED DESCRIPTION OF THE INVENTION 

As shown in the exemplary drawings, the present 
invention is embodied in a weapon automatic alerting and cueing 
system which uses a remote sensor system 2 to provide 
information to a remote weapon launcher team 4 that allows for 
the designation, acquisition and engagement of targets 6 that 
are encountered in a battlefield environment. The invention 
provides a means of utilizing handheld weapons such as the - 
Stinger missle system in combination with a remotely located 
sensor 2, thereby providing many of the advantages of a complex 
and sophisticated air defense system while diminishing the value 
of the individual components of the weapon system due to their 
distribution and relatively lower cost and sophistication. In 
the exemplary embodiment discussed herein, certain components of 
the system have been chosen for their proven performance and 
availability but it should be noted that the invention may also 
be configured with components developed for the specific purpose 
of enhancing the various features of the invention. 

As illustrated in FIG. l, the invention utilizes a 
remote sensor system 2, in this case incorporating a well known 
3D radar 8 that is capable of deriving information about the 
target 6 in azimuth, elevation and range from the radar site 
10. The azimuth, elevation and range information from the radar 
8 is then transferred from the radar data processor to a 
special purpose computer 14 which calculates the position of 
target 6 with reference to a fixed reference plane. This 
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information is then transferred to a modem 16 which encodes the 
information for transmission by a transmitter 18 to the remote 
weapon site 4. Modem 16 and transmitter 18 are typically 
combined in a unit 19 such as JTIDs as described above. 
Receiver 20 receives the information for the targets acquired 
and tracked by radar 8 and transfers this information via cable 
22 to a computer terminal 24 that includes display unit 2 6 
available to weapon commander 28 at the weapon site. Weapon 
commander 28 utilizing the information displayed on display 26 
analyzes the information presented and designates or "hooks" a 
target using the keyboard of computer terminal 24. After the 
target is hooked, parameters describing the range, azimuth and 
elevation of the target from the location of the weapon site 4 
are transmitted via cable 3 0 to the sight 32 of weapon launcher 
34, in this case a launcher for the Stinger missle 36. Weapon 
operator 38, sighting through sight 32 is provided with 
information indicating the direction, in which the missle 
launcher must be pointed and an in-range or out of range message 
thereby drastically simplifying the acquisition of target 6. 
Tracking of target 6 by weapons launcher 34 is. carried out in 
the conventional manner for such manpad weapons, by visual 
centering of the target in an optical aperture'. 

Thus, the present invention provides a means of 
acquisition and target designation which is a substantial 
improvement on previous methods of relying upon visual sightings 
by the weapon crew in a battlefield environment. The weapon 
station may also be provided with an identification - friend or 
foe (IFF) set 40 which can interrogate a target and identify a 
friendly target thereby avoiding a launch against a friendly 
vehicle. 

While the present invention is illustrated in a 
configuration which routes sensor data directly to the fire 
unit, the invention may also use command centers and sensor dara 
may be routed to the command centers and thence to the fire unit 
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or some combination thereof to enhance survivability- A three 
dimensional* radar has been described as the basis for the sensor 
system, but an equivalent result may be obtained by the use of ■ 
cooperative two dimensional sensors with the calculation of the 
X, Y, Z coordinates of the target in a fixed reference plane 
being performed by a computer similar to the one discussed above 
but which accepts the two dimensional track information from a 
plurality of. sensors. 

Fig. 2 is a block diagram illustrating the relationship 
of the major elements of the software and hardware, of computer 
terminal 24 at the weapon sight and its connections with cueing 
sight 32 and the external information coming from radar 8 (FIG. 
1).. The radar passes 3D radar data and time-of-day over the 
data link to receiver 20 and thence to the computer terminal 
24. A computer found to be usable is the Compass 2 portable 
computer from Grid Systems Corporation, Mountain View, 
California. U.S. Patent 4,571,456 has been issued covering the 
features of this computer and is incorporated herein by 
reference. The data may be formatted as described in the 
following discussion of the radar track information data link, 
and is modulated with CGITT V.22 DPSK modulation. The data rate 
is 1200. BPS. The built-in modem 42 in the computer terminal 
demodulates the signal and. passes the resulting 8-bit bytes to 
the Radar Message Processing module 44 which compiles and 
decodes the messages. Time-of-day messages are used to 
reinitialize the internal clock 46 in the computer terminal 24 
to ensure that the computer terminal clock 46 does not drift 
from the radar clock. The time-of-day messages are transmitted 
from the radar approximately every 2 seconds. 

Track messages are sent to the Parallax Correction 
module 48 whereby the data link reference point location (DLRP) 
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50 and the fire unit location 52 are used to adjust the North, 
East and altitude positions of the tracks so they are 
represented as offsets from the fire unit (Stinger) location. 
The track information is then used to update the track table in 
the Track Table Manager module 54. The Track Table Manager 54 
will create a new table entry if the track numbers in the table 
do not match the track number in the received track 
information. The Track Table Manager 54^ will also drop a track 
from the track table if the track has not been updated for a 
preselected period of time. 

Target Parameter information is extracted from the 
track table for each target and sent to the Track Position 
Extrapolation module 56. This module uses the tracks' time tags 
and the current time-of-day to compute the age of the track. 
This data and the track velocities are used to determine how far 
the tracks have moved since the last radar update. By adding 
this new data to the original track positions, the current 
positions of the tracks are derived. These updated track 
positions are sent to the Air Situation Display module for ; 
display. 

Thet Air Situation Display module 58 updates a graphics 
picture of the air situation at the fire unit displayed on the ; 
terminal display unit 26 (FIG. 1). The air situation display 
shows each track received from the radar relative to the 
position of the fire unit location. Each track is displayed 
with a preselected symbology that indicates if the track is 
friendly, hostile, or unknown and whether the track is £ fixed 
or a rotary wing aircraft. The Air Situation Display module 58 
initially displays the fire unit location in the center of the 
screen as a default, but allows the operator to move the display 
up, down, right, left or back to center on the display. The air 
situation display scaling may also be selected by the operator 
ranging from 10 by 10 kilometers to 160 by 160 kilometers in 
selectable steps. An alert circle radius which is operator 
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selected is also displayed on the air situation display. When a 
track enters'. the alert circle centered about the fire unit 
location, an audible alert may be generated by the computer 
terminal if the operator desires. The audible alert may be 
silenced by the operator until another track enters the alert 
circle. 

The Air Situation Display module 58 provides the 
operator with four different methods for selecting or "hooking" 
a target. The first is with a "hook box" that may be positioned 
near the desired track by the operator to "capture" it. The 
second method is by selecting a priority level wherein the track 
with the corresponding priority level will be hooked. The. third 
method is by sequencing from one track to the next. A fourth is 
by entering the track number of the desired track. The display 
indicates the hooked track by displaying the hook box around the 
target symbblogy. The hooked track is identified in the track 
table. 

The air. situation display also indicates the current 
position of the Launcher in azimuth and elevation. The azimuth 
is displayed as a line radiating from the fire unit location in. 
the direction of the Stinger azimuth. The elevation is \ 
displayed on a vertical bar graph next to the air situation 
display. In addition, the same bar graph is used to display the 
elevation of the hooked target. 

The software in the computer terminal has the ability 
to prioritize the tracks received from the radar based upon 
input from the operator. This function is performed by the 
Track Prioritization module 60. The operator may select a 
priority sector to aid in the track prioritization. This sector 
is displayed on the air situation display 58 as a pair of angled 
lines. The Track Prioritization module 60 uses the tracks 1 
current range. from the weapon site, the projected minimum range, 
velocity, altitude, degree of maneuvering, and identification to 
determine their respective priorities. The module sorts the 
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tracks in order of priority and assigns each a priority number. 
This number can be used to hook a track. 

Information for the hooked target is passed from the 
Track Table 54 to the Target Position Extrapolation module 56. 
After each update from the Stinger pointing sensor, about every 
0.1 second, the hooked track's position is calculated in the 
Track Position Extrapolation module 56. The updated position is 
sent to the Rdfctangular To Polar Conversion module 64 which 
converts the target's Easting, Northing and altitude position 
into slant range, azimuth and elevation position with respect to 
the fire unit location. This information is used for the weapon 
sight cueing, for display to the operator on the target metric 
display, and for calculating when the target is in range of the 
weapon. 

The In-Range Calculation module 66 uses this updated 
target position, heading and velocity from the rectangular to 
Polar Conversion module 64 to determine if the target can be 
engaged by the Stinger weapon. If the target is not yet within 
range, the I*i-Range Calculation module 66 provides the time 
remaining before the target will be engaged. The in-range 
calculation results are passed to the weapon sight and to the 
target metric display. 

Metric information on the hooked target is presented to 
the operator to aid in determining the engagability of the 
target. This function is accomplished by the Target Metric 
Display module 68. The module displays the time-to-engage which 
also indicates if the target is currently in range of the weapon 
or if the target will not become within range of the weapon 
based on its current heading and course. Other target 
information displayed is target range, azimuth, elevation, 
altitude, velocity, track number and priority level. The units 
for azimuth and elevation may be selected by the operator as 
degrees or mils. The target velocity units may also be selected 
to be meters per second or knots. The weapon control order for 
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the hooked target is also displayed. The computer terminal also 
displays the scale of the air situation display, the time-of-day 
and the status of the data link communications. 

Weapon cueing. is implemented using a feedback control 
loop involving a pointing sensor 70 located on the weapon, the 
computer terminal for sensor calibration and feedback error 
calculation, a special sight for displaying the pointing error, 
and a human operator for . correcting the pointing error by 
positioning the weapon. The pointing sensor attached to the 
launcher is a digital compass/ inclinometer. A particular sensor 
found to be usable in one embodiment of the invention is the 
Model 236 Precision heading/tiltsensor produced by Digicourse 
Inc., P.O. Box 50699, New Orleans, Louisiana 70150. The sensor 
senses the earth' s magnetic field to determine the azimuth 
orientation of the weapon and senses the earth's gravity to deter- 
mine the elevation orientation of the weapon. Weapon position mess 
ages from the pointing sensor are. received at the computer termin 
al and processed by the Weapon Message Processing module 72. • 
Correction for the individual sensor is then corrected by the 
Pointing Sensor Calibration module 74. This module adjusts for - 
magnetic deviations affecting the pointing sensor and elevation 
biases in the pointing sensor. The corrected weapon position 
data is used by the Pointing Error Calculation module 76 to 
generate the pointing error information. The pointing error is 
determined by differencing the hooked target's azimuth and 
elevation with that of the weapon. If the pointing error is 
small enough, the module 74 sends an on-target indication to the 
Target Metric Display 68. The Weapon Message Processing module 
72 converts the pointing error informaton into up, down, right 
and left commands. These commands combined with the in- range 
indication from the in-Range Calculation module 66 are sent to 
. the weapon cueing sight 32. This special sight cues the weapon 
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operator to point up or down, left or right using four red 
blinking lights in this case red LEDs. Using these cueing 
lights, the weapon operator can position the weapon axis so that 
it is pointing at the target. The sight includes additional 
green LEDs to indicate when the target is within range of the 
weapon . 

The modules referred to aboye may be implemented in 
software executable by the computer terminal 24. One such 
embodiment developed for the invention is included in the Appendi 
attached hereto and incorporated herein by reference. 

RADAR TRACK INFORMA L TON DATA LINK • 

The data link which is used to broadcast radar track 
information from the LASR 3D radar to the computer terminal 
display units located at the weapon site is described below. 
Two message types are used; a track message for passing 
information for one of up to ten tracks to the .weapon site and a 
time message for synchronizing the computer terminal clock 46 
with the LASR clock. Each message is composed of 14 
asynchronous characters. The characters are sent serially over 
the link at a rate of 1,200 BAUD with each character consisting 
of one start bit, one stop bit, eight data bits (LSB first), and 
one parity bit representing the even parity of the eight data 
bits. The serial bit stream is modulated by a Bell 212A 
compatible modem before being transmitted to the computer 
terminal display units. Each of the up to tens tracks sent over 
the data link is updated every radar antenna rotation (1.82 
seconds for the candidate 3D radar). At the end of each 1.82 
second rotation, a time message is also sent over the link. The 
computer 14 at the radar site 10 adjusts the time value in the 
time message so that it will be current when it is received at 
each computer terminal display. This function permits the clock 
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resident .'in each computer terminal to be synchronized with the 
LASR clock without any offsets resulting from communications 
delays. The time tags associated with each track update can 
then be used to accurately determine the track age between 
updates. Track age is used to extrapolate its current position 
based on the position of the last update and the track velocity. 

While the information to be transferred between the 
sensor and the computer terminal may be formatted and 
transmitted in various ways, one advantageous form of such 
messages has been developed by the inventors and is tabulated in 
Tables 1 through 6 following. Those skilled in the art will 
recognize the efficiency and suitability of the formats 
developed but may find other advantageous methods of 
implementing this -procedure. 
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TABLE 1 

SUMMARY OF TRACK MESSAGE FORMAT 



TRACK MESSAGE 

Sync Byte 1 
Sync Byte 2 
Message Type 
Spare 

Aircraft Type 

Track ID 

Track Number 

X-Position 

Y-Position 

Altitude 

X-Velocity 

Y-Velocity 

Time Tag 
Checksum 



\ 

8 
8 
2 
2 
1 
2 
8 

16 
16 
16 
8 

8 

8 
8 

112 



RANGE 



RESOLUTION 



+/""76,800 meters 2.34375 meters 

+/-76/800 meters 2.34375 meters 

+/-76,800 meters 2.34375 meters, 

+/-365 meters/sec 2.856 meters/ v 
sec 

+/-365 meters/sec 2.856 meters/ > 
sec 

15.9375 seconds 62.5 millisec 



bits = 14 bytes 



WO 88/02841 

Sync Byte #1 

Sync Byte £2 

Message Type 
Spare 

Aircraft Type 
Track ID 



Track Number 
X-Position 
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• TABLE 2 

CONTENTS DESCRIPTION - TRACK MESSAGE 

An 8-bit, number used with Sync Byte #2 
by the receive processor to determine 
the start of the message. It has a 
constant value of ■ AA'H. 

An 8-bit number used with Sync Byte #1 
by the receive processor to determine 
the start of the mesesage. It has a 
constant value of *55*R. 

A 2 -bit word indicating the type of 
message. For this mesesage, the 
message type = f 01 , B. 

."■ All spare bits shall be set to zero. 

A single bit indicating the aircraft 
type as follows: 

0: Fixed Wing 

I • Rotary Wing 

A 2-bit designation of the track 1 s 
identification as follows: 

00 Unknown 

01 Designated Unknown 
10 Friendly 

II Hostile 

A designated unknown track is a track of 
unknown identity that has been 
designated for special purposes. 

A 8 -bit reference number identifying 
. the track described by this message. 

A 16-bit 2. # s complement value for the 
distance in the computer terminal East 
direction of the track from the data 
link reference point. The LSB 
represents 2.34375 meters. The X- 
Position range is from -76,800.00000 
meters to +76,797.65625 meters. 
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y-Position 



Altitude 



X-Velocity 



Y-Velocity 



Time Tag 



Checksum 



A 16-bit 2 f s complement value for 
the distance in the computer 
terminal North direction of the 
track from the data link reference 
point. The LSB represents 2.34375 
meters. The Y-Position range is 
from -76,800.00000 meters to 
+76,797.65625 meters. 

An 16-bit 2's complement value 
for the track's height relative 
to the altitude of the data link 
reference point. The LSB represents 
2.34375 meters. The altitude range is 
from -76,800.00000 meters to 
+76,797.65625 meters. 

An 8-bit 2's complement value for the 
track 1 s rate of travel in the true East 
direction. The LSB represents 2.856 
meters per second. The X-Velocity 
range is from -3 65.568 meters per 
second to +362.712 meters per second. 

An 8-bit 2's complement value for the 
track's rate of travel in the true 
North direction. The LSB represents 
2.856 meters per second. The Y- 
Velocity range is from -3 65.568 meters 
per second to +362.712 meters per 
second. 

An 8-bit unsigned value representing 
the partial TPQ36A system clock at the 
time the track described in this message 
was scanned. The LSB represents 0.0625 
seconds. The max value is 15.9375 
seconds. 

An 8 -bit unsigned number representing 
the MOD 256 sum off all the bytes in 
this message except Sync Byte #1, Sync 
Byte #2, and Checksum. 
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TABLE 3 

ORDER OF TRANSMISSION - TRACK MESSAGE. 

The track message will be sent in the following order 
a byte at a time starting with Byte 0. 

MSB lsb 

Byte 0 7 '■ " Sync Byte #1 



Byte 1 : Sync Byte #2 



Byte 2 :Msg Type:: Spare :ArType: Track ID 



Byte 3 : Track Number 



Byte 4 - : X-Position (MS Byte) 



Byte 5 : X- Position (LS Byte) 



Byte 6 : Y-Position (MS Byte) 



Byte 7 : r-Position (LS Byte) 



Byte 8 : Altitude (MS Byte) 



Byte 9 : Altitude (LS Byte) 



Byte 10 : X-Velocity 



Byte 11 : Y-Velocity 
Byte 12 1 ~ Time Tag 
Byte 13 1 [ Checksum 
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TABLE 4 
TIME MESSAGE 

RANGE RESOLUTION 



Sync Byte 1 


8 










Sync Byte 2 


8 










Message Type 


2 










Spare 


6 










Spare 


8 










TPQ36A Time 


32 


119.3 


hours 


100 


microsec 


TOD Offset 


32 


119.3 


hours 


100 


microsec 


Spare 


8 










Checksum 


8 











112 bits ■ 14 bytes 
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Sync Byte #1 

Sync Byte #2 

Message Type 
Spare 

TFQ36A Time 



TOD Offset 



Checksum 



TABLE 5 

TIME MESSAGE CONTENTS DESCRIPTION 

An 8-bit number. used with Sync Byte #2 
by the receive processor to determine 
the start of the message. It has a 
constant value of 1 AA'H. 

An 8 -bit number used with Sync Byte #1 
by the receive processor to determine 
the start of the message. It has a 
constant value of 1 55 r H. 

A 2 -bit word indicating the type of 
message. For this message, the 
message type = , 10 , B. • 

All spare bits and bytes shall be set 
to zero. 

A, 32-bit unsigned value representing 
the system time at the time 
this message was sent from the radar. 
The LSB represents 100 microseconds. 
The max value is 429,496.7 seconds for 
approximately 119.3 hours. 

A 3 2 -bit unsigned value representing . , 
> the offset to the Time (above) 

to convert the system Time to the time- 
of-day. This, offset is manually 
entered into the radar after initiali- 
zation and remains constant until 
manually changed. The LSB represents 
100 microseconds. 

An 8 -bit unsigned number representing 
the MOD 256 sum of all the bytes in 
this message except Sync Byte #1, Sync 
Byte #2, and Checksum. 
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TABLE 6 

TIME MESSAGE ORDER OF TRANSMISSION 

The time message will be sent in the following order 
a byte at a time starting with Byte 0. 

MSB LSB 



Byte 0 : Sync Byte #1 



Byte 1 : Sync Byte #2 



Byte 2 : Msg Type : Spare 



Byte 3 : Spare 



Byte 4 : TPQ36A Time (MS Byte) 



Byte 5 : TPQ3 6A Time 



Byte 6 : TPQ36A Time 



Byte 7 : TPQ36A Time (LS Byte) 



Byte 8 : TOD Offset (MS Byte) 



Byte 9 : TOD Offset 



Byte 10 : TOD Offset 



Byte 11 : TOD Offset (LS Byte) 

Byte 12 1 Spare ™*~~~~ 



Byte 13 : 



Checksum 
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WEAPONS DISPLAY UNIT 

■ Referring now to' Figure 3, an illustration of the 
weapons display 26 of computer terminal 24 during an engagement 
is illustrated. Display 26, which may be reproduced on any 
number of visual displays but, in the preferred embodiment, is 
presented on a electroluminescent display integral with the 
computer terminal, illustrates on the situation display side 78, 
the targets and their relationship to the weapon location and, 
on the parameter display side 80, parameters associated with the 
selected target. As can be seen on the situation display, 
helicopters 82 are represented by symbols different from those 
utilized to represent aircraft 84, in this case a bar over the 
symbol indicating it is a helicopter. In this representation, a 
diamond indicates that the target is hostile, a U that it is 
unknown and a circle that the target is friendly. The azimuth 
line 86 indicates the current pointing direction of the weapon 
and the box 88 the position of a target 90 being selected or 
"hooked". A center vertical bar 92 contains a "bug" 94 of the 
desired elevation of the weapon in order to acquire the target 
and a traveling indicator of instantaneous elevation angle 96 of 
the weapon. The data 98 on the parameter . display contain 
important information associated with the target being 
designated. 

Referring to Figure 4, an alternate display 100 can 
present a menu of parameters which can allow the operator to 
customize the parameters displayed by his scenario and 
engagement data* 

Figure 5. illustrates a simplified view of the visual 
sight 32 employed for the present invention. As shown, it is 
mounted close to the weapon launcher 34 and includes a bores ighr 
104 parallel to that of the bore of the weapon launcher. 

As illustrated in greater detail in Figure 6, the sight: 



WO 88/02841 



PCT/US87/02435 



25 



32 employs light emitting diodes 105 in the periphery of the 
visual sight- 32 thereby providing an indication of target cueing 
to the operator." In the example shown, red light emitting 
diodes 106 are used to indicate azimuth and elevation commands 
received from the computer terminal and green light emitting 
diodes 108 are used to provide a range indication for firing 
cueing. These diodes may be driven by signals from the message 
processing module 72. In operation, a red light emitting diode 
106 will blink if it is necessary to move the angle of the 
launcher in that direction to acquire the target. The green 
light emitting diodes 108 are off until such time as the target 
is in range as derived from data being generated by the computer 
terminal, at which time they come on, indicating that the target 
is within range of the weapon. 

Thus, the complex acquisition and firing cues normally 
performed visually by the weapon operator are reduced to simple 
steering commands until such time as the target is acquired and 
the very difficult "in range" estimate is reduced to a -simple 
visual indication in the sight that the target is within range 

of the weapon. 

It can be seen from the above description that the 
present invention provides for a substantially enhanced 
probability of acquisition and successful engagement of a target 
by a manpad launched system compared to the independent use of 
such weapons in a battlefield environment. The fact that this 
capability is accomplished without the necessity of 
proliferation of sensor sites or an increase in the 
vulnerability of various weapon sites is an important 
improvement in such air defense weapon systems. Furthermore, 
all of the capabilities normally associated with manpad weapon 
systems remain intact in the event of a failure or enemy 
destruction of any of the other components of the system, 
thereby providing with graceful degradation in the event of 
attack and high survivability of the individual units in the 
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event of. a concentrated attack against any part of the system. 

It will be appreciated from" the above discussion that a 
variety of visual guidance displays may make use of the present, 
invention. The simplified peripheral vision guidance display 
briefly described above, may be replaced, for instance, by 
virtual image displays involving the projection by holograms or 
otherwise of information displayed on a cathode ray tube or 
other visual graphics system. If such displays were used, of 
course, more information could be displayed than is used in the 
simplified peripheral vision guidance display described above 
and, depending upon the capabilities and training of the 
operator and the display capabilities of such display, it may 
even be possible to eliminate the requirement for a separate 
person to select and feed targets to the operator, thereby ' 
further reducing the personnel requirement of a weapon launching 
location to a single operator. Furthermore, it may be seen that 
the invention could be applied in a similar way to air or 
surface borne vehicles thereby substantially reducing the 
acquisition time and accuracy of sensorless vehicles or vehicles 
with limited sensor capabilities. Thus, the application of the 
present invention is not limited to weapon locations with a two 
man crew. 

As illustrated in the exemplary configuration discussed 
above, the invention may be configured by the use of many 
components that currently are available or easily modified from 
available equipment developed for other military purposes. 
Therefore, the beneficial effects of the invention do not 
require or rely upon the development of "heretofore unavailable 
component technology or other technological breakthroughs but, 
nonetheless, provide heretofore unrealizable capabilities, 
efficiencies and economies in air defense weaponry. Naturally, 
the development or availability of special purpose components 
for such a system can only enhance and improve its other 
beneficial capabilities. While a particular form of the 
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invention has been illustrated and described, it will also be 
apparent • that various modifications can be made without 
departing from the spirit and scope of the invention. 
Accordingly, it is not intended that the invention be limited 
except as by the appended claims. 
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APPENDIX 

$NOLIST 

MODULE tablemgr ; 

$LARGE(subsysl HAS pqclose; EXPORTS pqclose) 
PUBLIC PQCLOSE; 

PROCEDURE pqclose (VAR f : BYTES ) ; 
$COMPACT(-const in code-) 

(* - -------- 

(* Include files used by WDU system. 

(* 

(* «" — " — *) 

$ INCLUDE ( ' w * irics 1 common . inc-text-) 

$INCLtJDE (*v % incs*conpas.inc-text~) 

$INCLUDE ('w* incs'windovtypes.inc-text-) 

$INCLUDE ( ' w 1 incs 1 windowprocs . inc~text~) 

$INCLUDE ( v w* incs 1 ospastypes: inc-text-) 

$INCLUDE ( x w % incs 1 ospasprocs . iiic~text~) 

(*— — — .... 

(* Interface section 
<* 

(* - — *) 



PUBLIC alert; 
PROCEDURE beep; 
PROCEDURE zint; 
PROCEDURE zeroinit; 



PUBLIC tablemgr '; 



CONST 



TYPE 



synl 
syn2 

io_buff_lng 
ma&entry 

byte_int 



OAAH; 
55H; 

11; 

16; 



- RECORD 

CASE BOOLEAN OF 

TRUE : (b: ARRAY [1. .2] of BYTE) 
FALSE: (i: INTEGER); 
END ; { record } 
coord_type « ARRAY [1..3] of LONGINT ; 

{ LSB of 2.34375 } 
cal_type - ARRAY [GL,4,0. .4] of REAL; 
clock_type — RECORD 

CASE BOOLEAN OF 

TRUE : (b : ARRAY tl..4] of BYTE) ; 
FALSE: (i: LONGINT); 
END ; { record } 
string8 = packed array [1. .81 of char; 
erectype ~ RECORD 
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xpos: INTEGER ; 
ypos: INTEGER ; 
mlng: BYTE ; 
val : string8; 
editt: byte; 
END; 



VAR 



erec 

t ode lock 
capture 
hook_x 
hook_y 
hook_z 
io_buffer 
in_range_bit 
status_bit 
led_bit 
hook_a_track; 
hook_az 
hook_el 
hook_range 
hook_alt 
sting_az 
sting_el 
sting_on 
grid_mag_north 
dlrp_coord : 
fu coord : 



alert_range 

optr 

opoint 

orect 

fonrec 

lfont ,bfont 

cal_tbl 

el_off 

mptr 

dumptr 

me,pe 

audible 

pri_num 

hook__num 

man__hook 

auto_hook 

demo_mode 

lockon 

pridisp 

startps 

endps 

pvel 

palt 



{ DLRP x, y% and z coordinates 



ARRAY [0. .maxentry] of erectype; 
clock_type ; 
BOOLEAN; 
INTEGER; 
INTEGER; 
INTEGER; 

ARRAY [1. .ioJ>uffJ.ng] of BYTE ; 
INTEGER ; 
INTEGER ; 
INTEGER ; 
BOOLEAN ; 
REAL 
REAL 
REAL 
REAL 

byte_int ; 
byte int ; 
BOOLEAN ; 
REAL ; 
coord_type 
coord_type 

{ Fire Unit x, y, and z coordinates . ) 
INTEGER ; 
windowregionptr ; 
point ; 
rectangle ; 
FONTINFORECORD ; 
fontpointer ; 
cal_type ; 
REAL; 

windowregionptr ; 
windowregionptr ; 
WORD; 
BOOLEAN 
INTEGER 
INTEGER 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BYTE 
REAL 
REAL 
REAL 
REAL 



(*rca*) 
(*rca*) 
(*rca*) 
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PUBLIC tabl mgr ; 
PROCEDURE msg_handler ; 
PROCEDURE hook_process ; 
PROCEDURE sting_hook; 
PROCEDURE putit; 
PROCEDURE beepit; 

PUBLIC io interface ; 

PROCEDURE comm_init(man_dial:BOOLEAN) ; 
PROCEDURE iowrapup; 

PUBLIC iointerface ; 
VAR iaok; BOOLEAN; 

PUBLIC stingerhandler ; 
PROCEDURE sting_init ; 

PUBLIC stingerhandler ; • 
VAR sp : WORD; 

PUBLIC parminterface ; 

PROCEDURE update_parm( tf : BOOLEAN ) ; 

PUBLIC builtinradar ; 
PROCEDURE activateradar ; 
PROCEDURE deactivateradar ; 



(* GRID WDU softare 

(* 

(* *) 

$NOLIST 

PROGRAM tablemgr (. calf 11, capfil, input , output ) ; 
CONST 

{- - — - 

{ CONSTANTS used in GRID interface system 
{ 



{ • 

time_lsb 




0.0625 ; 


{ 


... > 

TPQ time units ) 


pos_JLsb 




2.34375 ; 


{ 


TPQ coordinate units } 


pos_lsb_sq 




5.4921640625 ; 


( 


TPQ coordinate units squared } 


vel_JLsb 




2.856 ; 


{ 


TPQ velocity units } 


time_yel_lsb 




0.1785 ; 


( 


time units * velocity units ) 


del_rate 




72; (*112- ©serial*) 


{ 


12.0 sees / .0625 - 
delete rate ) 


az_lsb 




0.125 ; 


{ 


azimuth lsb 1/8 degree } 


max_track 




U 


{ 


track table size) 


hi_yelocity 




200.0 ; 


( 


velocity boundary ) 


lo_velocity 




50.0 


{ 


velocity boundary ) 


timejmsg 




2 ; 


( 


TPQ time msg } 


trackjnsg 




1 ; 


I 


TPQ track msg } 


cr 




13 ; 






deg_rad 




1.745329'>520E-02 ; 






deg_rad_az 




2.1816615650E-03 ; 
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radjieg 
deg_mil 
win_dim 
time_delay 
time_pri 
sound_pri 
cap_pri 
prog_pri 



=- 5.7295779513E+1 

- 17.77777 ; 

- 250 ; 

- 60 ; 

- 0 ; 

- 10; 

- 10; 
- 210 ; 



(* delay timer before bump clock 1/16 sec 



stingjnin - 1000.0; 
sting_max - 5000.0; 



TYPES 



zero 
step 
capname 
capmax 

TYPE 
{ 
{ 
{ 

{ 

state_type 
char_byte 



track_type 



- 222; 

- 0.0981747704; 

- 9 * w'dat' data-text- ' ; 

- 400000; 



used in GRID interface system 



) 



- (idle,ball_pend,ball_active f num_pend) ; 

- RECORD 

CASE BOOLEAN OF 
TRUE : (c:CHAR) ; 
FALSE: (b:BYTE) ; 
END ; { record } 



- RECORD 
active 
track_id 
track_fix 
track_num 

X_J)OS 

y_pos 

altitude 

x_yel 

y_vel 

dx_vel 

dy_vel 

abell 

time_tag 
first_site 
track_weap 
^ END 



screen_type 



BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
byte_int 
byte_int 
byte_int 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
BYTE 
INTEGER 
LONGINT ; 
BYTE ; 
{ record 
caprec 
cap_time 
cap_num 
cap_vel 
cap_range 
cap_az 
cap_alt 
cap_prio 
END ; 
- RECORD 



{ active- true , inactive- false } 
{ friend, hostile, unknown, test ) 



LSB of 2.34375 meters 
LSB of 2.34375 meters 
LSB of 2.34375 meters 
LSB of 2.856 meters / sec 
LSB of 2.856 meters / sec 
LSB of 2.856 meters / sec 
LSB of 2.856 meters / sec 
(*30aug85*) 

{ LSB of .0625 seconds 



(* 21MAR86 *) 



- RECORD 
LONGINT ; (*4*) 
BYTE ; (*!*) 
REAL ; (*4*) 
REAL ; (*4*) 
REAL ; (*4*) 
REAL ; (*4*) 
REAL ; (*4*) 
(*25*) 
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screen_num 


: INTEGER ; 


{ screen track number) 


screeri_x 


; INTEGER ; 


( screen x coord 


screen_y 


INTEGER ; 


( screen y coord 


screen_id 


: INTEGER ; 


{ screen id number. 


screenjvel 


REAL ; 


{ screen y coord 


screen^el 


. REAL 


( screen y coord 


screen_fix 


, BOOLEAN ; 


{ screen y coord 


screen_head 


, REAL ; 


( screen y coord 


screen_dhead 


REAL ; 




screen_az 


• REAL 




screen_2drange , 


REAL ; 




s creenJJ drange : 


REAL ; 




screen_alt : 


> REAL ; 




screen_pcp 


* REAL ; 




screen_prio 


REAL ; 


(*30aug85*) 


screenjweap 


BYTE • 


(*21MAR86*) 



END ; 



rankjrec - RECORD 

rank_num : INTEGER ; 
rankjrio: REAL ; 
END ; 

veap_type - PACKED ARRAY [1. .6] of CHAR ; 
VAR 

{ — — 

{ VARIABLES used in GRID interface system 

c ------ < - - ) 

capfil FILE of caprec; 

capful : LONGINT; 

testfh : PACKED ARRAY [1. .18] of CHAR; 

mils : INTEGER; 

ms gather e : BOOLEAN ; 

stop : BOOLEAN ; 

mrect : rectangle ; 

mpoint : point ; 

mmode WORD ; 

x,y,z : INTEGER ; - 

toffset : clockjrype ; 

tclock : clock_type 

clock : clock_type • { GRID real time clock } 

trackjrec : track_type ; { hyolds one record from track table } 

track_tbl : ARRAY [0. .max_track] of track_type ; 

screen_tbl : ARRAY [0 . .max_track] of screen_type ; 

rank_tbl : ARRAY [0. .max_track] of rank_rec ; 

stemp : INTEGER ; 

hook_idx : INTEGER ; 

temp : INTEGER ; 

locked_on : BOOLEAN ; 

. meters_pixel : INTEGER ; { screen dimension*1000 / 250 } 

screen_fu_x : INTEGER ; { screen fu x coord default 125 } 

screienjEuJr : INTEGER ; { screen fu y coord default 125 } 

hook_id : INTEGER ; { hokked id type } 
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hook_vel 

hookjiead 

ho k_ttc 

hookj>cp 

hook_dhead 

hook_rank 

hook_weap 

tsound_alert 

inj>rocess 

t_hook_num 

ccount 

kbuff 

state 

ball_x 

ball_y 

calfil 

errorw 

stime 

temp_al 

cap_pid,csid 

timejpid 

stingjpid 

prog_pid 

io_pid 

fonconn 

fonres 

fonpath 

error 

errorl 

error2 

adjust 

mph 

fake — radar 

elevptr 

elevrect 

elevpoint 

t_inrange 

t_lockon 

t_hooktim 

t_hooknum 

rank 

weap_buff 

memque 

mempos 



REAL 
REAL 
REAL 
REAL 
REAL 
INTEGER 
BYTE 
BOOLEAN 
BOOLEAN 
INTEGER 
INTEGER 
ARRAY [1..3] 
state_type ; 
INTEGER ; 
INTEGER ; 
TEXT ; 
WORD ; 
time type ; 
INTEGER ; 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
BYTE 
PACKED ARRAY [1 
WORD 
WORD 
WORD 
INTEGER ; 
BOOLEAN ; 
BOOLEAN ; 
windowregionptr ; 
rectangle; 
point; 
clock_type; 
clock_type; 
clock_type; 
INTEGER; 
BOOLEAN; 
ARRAY [0. 
ARRAY [0. 
BYTE; 



{ hooked velocity ) 
{ hooked heading ) 
( hooked time to close ) 
(* predicted closest point *) 
(* to maneaver or not to maneuver *) 



(*30aug85*) 



of BYTE 



27] of CHAR 



(★1/14/86*) 
(★1/14/86*) 
(♦1/14/86*) 



3] of weap_type; 
255] of caprec; 



(*28apr86*) 
(*28apr86*) 



(* display the T.O.D. 

(* *) 

PROCEDURE showtime(t:clock_type) ; 
var lint : LONGINT ; 

junk : clock_type ; 

BEGIN 
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lint :- t.i DIV 10000 ; 
junk.i t.i DIV 625 ; 

WRITEC (( (lint) DIV 3600) MOD 3600):2,':', 
( ( (lint) DIV 60) MOD 60) : 2 , 1 : ' , 
(Clint) MOD 60):2,':', 
TRUNC(Cjunk.b[l] MOD 16)*0. 625) :1) ; 

END; 

<*- — -- 

(* common screen i/o tQ save room 
(*— — — ----—- — *) 

PROCEDURE writexyr (x , y : INTEGER; r : REAL; 1 , d: INTEGER) ; 
BEGIN 

C0NMOVECSR(x,y) ; 

WRITE(r:l:d); 

END; 

<*- — --' 

(* evaluate performance screen 

(*--. - " — *) 

PROCEDURE evaluate; 

VAR ch:CHAR;x: INTEGER; t_f irst_site : clock_type ; 
BEGIN 

WINCOPYREMOTERECTANGLE (NIL , op tr , or ect , opoint r 0 ) ; 
CONRESETDIS PLAY ; 
CONDEFCSR(FALSE) ; 

C0NM0VECSR(2,2);. . 

C0NLINE0UT( 'TRACK NUMBER : ' ,16) ; * 

C0NM0VECSR(2,4); • 

CONLINEOUT ( ' FIRST SITE TIME: f ,16); 

C0NK0VECSR(2,6); 

CONLINEOUT ( ' HOOKED TIME r ',16) ; 
C0NM0VECSR(2,8); 

CONLINEOUT ('ON TARGET TIME : ' ,16) ; 
C0NMOVECSR(2,10) ; 

C0NLINEOUT('IN RANGE TIME : ' ,16) ; 
C0NM0VECSR(2,12); 

CONLINEOUT ('** <esc> to" return to monitor ** ? , 32) ; 
x:»l; 

WHILE (x<«max_track) AND (t_hooknumOtrack_tbI[x] . tfack_num) DO x:=*x+l; 

IF (x<-ma*_track) THEN t_f irst_site. i:-track_tbl[x] .firs t_site ELSE 

t_f irst_site . i :-0 ; 

C0NMOVECSR(20,2); . 

WRITE(tJhooknum:10) ; . 

C0NMOVECSR(20,4); 

showtime(t_first_site) ; 

C0NMOVECSR(20,6); 
showtime (tjhooktim) ; 
CONMOVECSR(20 f 8) ; 
showtime (t_lockon) ; 
CONMOVECSR(20,10); 
showtime (t_Inrange) ; 
REPEAT 
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ch:-CONCHARIN; UNTIL ch-CHR(27); 
WINCOPYREMOTERECTANGLE ( op tr , NIL, orect , opoint , 0) ; 
CONDEFCSR( FALSE); 
END; 



(* load calibration table 

(* *) 

PROCEDURE calib_data; 

VAR conn, error ,errorl: WORD; 

f name : PACKED ARRAY [1..22] of CHAR; 

x,y: INTEGER; 

BEGIN 

CONLINEOUTC V2.0 Loading Calibration Data ',35); 

error 1 : =-0 ; 

fname : - ' 1 b 1 dat % gr idcalb- text- ' ; 
fname [1] :-CHR(21); 

conn 0SATTACH( fname, l,errorl,3,error> ; 
OSDETACH (conn, error 1) ; 
CONHEX0UT( error) ; 
FOR x 0 to 4 DO 

FOR y :=■ 0 to 4 DO 
cal_tbl[x,y] :-0.0; 
el_off:-0.0; 
IF error-0 THEN 

BEGIN 

RESET(calfil, ' 'b 1 dat ' gride alb- text- ' ) ; 
FOR x :« 0 to 4 DO 
FOR y 0 to 4 DO 

READLN(calf il , cal_tbl [y ,x] ) ; 
READLN(calfil,el_off) ; 
PQCLOSE(calfil); 
END; 
END; 

(*--- 

(* 1/16 second timer 

(* ----*) 

PROCEDURE timer ; 

BEGIN 

REPEAT 

OSDELAY(time_delay) ; 

adjust ( adjust + 1 ) MOD 3 ; 

IF ( adjust - 0 ) THEN 
BEGIN 

clock, i :=» clock, i + 2 ; 
todclock.i :« todclock.i + 1250 ; 
END 
ELSE 
BEGIN 
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clock. i clock.! f 1 ; 

todclock^i todclock.i + 625 ; 

END ; 
UNTIL FALSE ; 
END; 

(*- - — " 
(* quick circle 

(*----- - *) 

PROCEDURE wincir cle (cl , c2 , r : INTEGER) ; 
VAR s : real ;xo,yo,x: INTEGER; 
* BEGIN 
s:«0; 

FOR x:-l to 8 DO 
BEGIN . 

xo:-TRUNC(r*SIN(s»; 
yo :-TRUNC(r*COS (s ) ) ; 
tfINDRAWPIXEL(cl+xo, c2+yo) ; 
WINDRAWPIXEL(cl+xo , c2-yo) ; . 
WINDRAWP IXEL ( cl - xo , c2+yo) 
WINDRAWPIXEL(cl-xo , c2-yo) ; 
WINDRAWPIXEL(cl+yo , c2+xo> ; 
WINDRAWPIXEL(cl+yo , c2 -xo ) ; 
WINDRAWPIXEL(cl -yo r c2+xo) ; 
WINDPAWPIXEL(clryo , c2-xo) ; . 
s:=»s+step- 
END; 
END;*" 

(*-«— 

(* data capture task 

(*~ - — *> 

PROCEDURE putit; 

VAR el, e2: WORD; 

BEGIN 

REPEAT 

e2:-OSUAIT(csid,0ffffh,el) ; 
IF capture THEN 
BEGIN 

capf il" : »memque [ e2 ] ; (*28apr 86*) 

PUT(capfil) ; • 

END; 
UNTIL FALSE; 
END; " 

(* 

(* data capture routine 

(*-- — — *) 

PROCEDURE captureit(trck:screen_type) ; 

VAR el , e2 , errorvtWORD ; 

BEGIN 

(*WITH capfil* DO*) (*28apr86*) 
WITH memque[meraposJ DO (*28apr86*) 
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BEGIN 

WITH trek DO 
BEGIN 

cap_ time:- todclock.i; 
cap_num :- screen_num; 
capjvel :- screen_vel; 
cap_range : -screen_3drange ; 
cap_az screen_az; 
cap_alt :=» screen_alt; 
cap_prio:- screen_prio; 
END; 
END; 

el : — mempos ; (*28apr86*) 
OSSIGNAL(csid, 1 t el, e2) ; 
mempos :=-mempos+l; (*28apr86*) 
capful : — capf ul+1 ; 
IF capful>capmax THEN 
BEGIN 

capture: -FALSE; 
capful :»0; 
CONMOVECSR<30,0); 
CONLINEOUT ( 9 DSKFUL ' , 6) ; 
PQCLOSE(capfil) ; 
END; 
END; 

(* - - 

Procedure msg-handler 
PURPOSE : converts io_buffer ( array of bytes ) to record format 
locates position in trackj;able for trackjrec 
r clock 
INPUT : iojmffer 

io_start 
OUTPUT : clock 

track_tbl 

- *) 

PROCEDURE msg_handler ; 
VAR count : INTEGER ; 

last : INTEGER ; 

tmsg_type: INTEGER ; 

ttrack_rec: track_type ; 

tbyte "~ : BYTE ; 



BEGIN 

tmsg — type :« io_buffer[l] DIV 64 
IF tmsg_type - time_msg TKIN 



BEGIN 

tclock.b(4] 
tclock.b[3] 
tclock.b[2] 
tclock.bfl] 
clock. i 



io_buffer(3] 
io_buffer[4] 
io_buffer[5] 
io_buffer[6] 
(tclock.i DIV 625) 



toffset.b[4] io_buffer[7] 



+ 7; 



(* add 7/16 sec to not drop *) 
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toffset.b[3] := loJbuffer[8] ; 
toffset.b[2] iojbufferr*] ; 
toffset.bfl] := io_buffer[10] ; 
todclock.i tclock.i + toffset.i ;. 
END 
ELSE 

IF tins g_ type - trackjmsg THEN 
BEGIN 

WITH ttrackjrec DO 
BEGIN 

ttrack_rec.abell :=* 0 ; 
ttrackjrec . dx_vel : — ■ 0 ; : ' 

ttrackjrec. dyvyel:— 0 ; 
active TRUE ; 

ttrackjrec, £Irst_site todclock.i; 
trackld :« IoJbuffor[lJ MOD 4 ; 
track_fix ((io_buffer [1] DIV 4) MOD 2) - 1; 
trackjreap:- ((io_buffer[l] DIV 8) MOD 4); 
. trackjium := io_buffer[2] ; 
x_pos.b[2] :« io_buffer[3] ; 
x_pos.b[l] :~ iojbuffer[4] ; 
yjpos.b[2] :~ io^buffer[5] ; 
y_pos,b[l] Io_buffer[6] ; 
altitude.b[2] ioJmffer[7] ; 
altitude.bfl] iajbuffer[8] ; 
x_vel :« ioj3txffer[9] ; 

IF x_vel >- 128 THEN x_vel x_vel-256 ; 
■y\vel" io_buffer[10] ; 
* IF y_vel >- 128 THEN y_vel y_vel-256 ; 
time_tag :=» io_buffer[ll] ; 

C insert in table } 

last 0 ; 
count :=* 1 ; 

WHILE ( ttrackjrec . tr ack_nunt<> tr ack_tb I [ count ] . trackjnum) AND 
(count<-max_tr ack) DO 
BEGIN ' 

IF NOT track_tbl[ count] „ active THEN last count ; 
count count + 1 ; 
END ; 

IF count <- max^track THEN 
BEGIN 

ttrackjrec. dx_vel:-( ttrackjrec. x_vel-track_tbl[ count] .x_vel) ; 
ttrackjrec . dy^vel : -( ttrackjrec . yjvel- track_tbl [ count] .yjVel) ; 
ttrackjrec , abell :» track_tbl [ count] .ab ell; 
IF track_tbl[ count] .f irst_siteO0 THEN 

ttrackjrec. firstjSite trackjtbl [ count] . first_site; 
trackjtbl [count] :=» ttrackjrec ; 
END 
' ELSE . 

IF last O 0 THEN trackjtbl [last] ttrack_rec ; 
IF ( track jid-1) AND auto_hook AND (NOT manhook) THEN (*rca*) 
BEGIN ~ . ^ (*rca*) 

hook jUum : «- 1 r ack jium ; ( *rca* ) 
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hook_a_track:-TRUE ; (*rca*) 
END; - 

END ; { with ttrack_rec ) 
END ; { if . . then } 
END ; I procedure insgjiandler } 



{ initialize screen and variables } 

PROCEDURE initialize ; 

VAR count ,x,y, page, line : INTEGER ; 

BEGIN 

zeroinit; 

we ap_buf f [ 0 ] : - ' NONE • ; 
weap_buff[l]:-' TIGHT' ; 
weap_buff[2] :-' HOLD'; 
weap_buff [3] :-' FREE' ; 
t_hooktim. i:-0; 
tJLnrange.i:-0; 
t_lockon.i:-0; 
t_hooknum:=-0 ; 
iaok: -FALSE; 
mph: -FALSE; 
lockon: -FALSE; 
f ake_r adar : -FALSE ; 
man_hook: -FALSE ; 
hook_az : -0 ; 
hook_el:-0; 
hook_range:-0; 
• hook^velc-O; 
hook_ttc:-0; 
hook_weap:=G; 
capture: -FALSE; 
mils:-l; 
me:-0; 
pe:-0; 

CONRES ETD I S PIAY ; 
calib_data; 
fonres 0 ; 

fonpath :- ' ' 'programs 1 ascii9xl2~font~' ; 
fonpath[l] CHR(26); 

fonconn OSATTACH ( fonpath , 1 , fonres , 1 , error) ; 

OSOPEN(fonconn,l, error) ; 

bf ont : = WINLOADFONT ( fonconn , error ) ; 

lfont :« WINSETFONT(bfont,fonrec,0) ; 

OSDETACH( fonconn, error) ; 

OSCLOSE(fonconn, error) ; 

adjust :- 0 ; 

clock. i :- 0 ; 

todclock.i 0 ; 

sting_on :- FALSE ; 

c s id: -OS CREATE SEMAPHORE( err orw) ; 

cap pid:-OSFORKPROCESS(putit ,10, FALSE, 500, errorw) ; 
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time_pid OSFORKPROCESS (timer, time_pri , FALSE, 500 , errorw) ; 
IF errorw O-O THEN WRITELNC fork error- ', errorw); 
prog j id 0SWH0AMI ; 

0SSETPRI0RITY(prbg_p id , progjpri , errorw) ; 

IF errorw O 0 THEN WRITELN( r set error- ' r errorw); 

mpoint.x:- 1; 

mpoint.y: — 1; 

mrect. topleft.x :-. 1 ; 

mrect. topleft.y I ; 

mrect. extent. x winjiim. ; 

mrect. extent. y :« winjiim ; 

opoint.x:- 0; 

opoint.y:— 0; 

orect. topleft.x 0 ; 

orect. topleft.y 0 ; 

orect. extent. x 512 ; 

orect. extent. y 256 ; 

state :=» idle ; 

stop FALSE ; 

hook_idx 0 ; 

hook_a_track FALSE ; 

hook_num 0 ; 

screen^fujx win_dim DIV 2 ; 
screen^fu_y winjiim DIV 2 ;. 
hallux :»screen_fu_x; 
ball_y : =»screen_f u_y ; 

meters_pixel 80 ; (* 160km / 250 *) 

FOR count 1 to max_track DO track_tbl [count] .active :« false ; 
C0NRESETDISPLAY; • mptr 

WINAIJ£CATEWIND0WMEM0RY(win_dim , winjiim, screenf ormat , errorw) ; 

op tr :« WINALL0CATEWIND0WMEM0RY ( 512 , 256, screenf ormat , errorw) ; 

dumptr WINALL0CATEWIND0WMEM0RY(1 , 1, screenformat, errorw) ; 

elevptr:- WINALII)CAXmND0WMEM0RY(13,25&^ (*l/14/86*) 

FOR count :» 0 to maxentry DO erec [ count ] .val :» '0 ' ; 

erec[ 7 ] .val:-' 15000 

update_parm (TRUE); 

sting^az.i 0 ; 

sting_el.i 0 ; 

C0NM0VECSR(30 , 2 ) ; CONLINEOUT ( ' TIME TO ENG : sec', 25); 

CONMOVECSR(30 r 3) ; CONLINEOUT (' RANGE : km ',25); 

C0NM0VECSR(30, 4); CONLINEOUT ('AZIMUTH : mil', 25); . 

C0NMOVECSR(30,5) ; CONLINEOUT (' ELEVATION : mil' ,25) ; 

CONMOVECSR(30 , 6 ) ; C0NLINE0UT( ' ALTITUDE : : m ' , 25 ) ; 

C0NM0VECSRC30 , 7) ; CONLINEOUT ( 'VELOCITY : m/s 9 , 25 ) ; 

CONMOVECSR(30 , 8 ) ; CONLINEOUT ( ' TRACK NUMBER : r , 14) ; 
CONMOVECSR(30 , 9) ; CONLINEOUTC ' PRIORITY : ' , 14) ; 
(* 

CONMOVEGSR(30 , 10) ;C0NLINE0UT( 'WEAPON CNTRL : ' , 14) ; 
*) 

WINDRAWLINE(0 , 0 , win_dim+l , 0) ; 
WINDRAWLINE ( win_dim+l , 0 , win_dinH-l , win_dinH-l) ; 
WINDRAWLINE (win dim-hl,win dinrt-l,0,win dim+1) ; 
WINDRAWLINE ( 0 , winjlim+l , oTo ) ; 
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WINDRAWLINE( 264, 0,510,0) ; (*l/14/86*) 
WINDRAWLINE( 510 ,0,510, 251) ; 

WINDRAWLINE(510,251,250,251); (*l/14/86*) 
WINDRAWLINE(264, 251, 264,0) ; (*l/14/86*) 
C0NM0VECSR(48 , 15) ; CONLINE0UT( 'HUGHES ' , 6) ; 
FOR x :- 205 to 227 DO (*425,205--491.227*) 

WININVERTLINE (425 , x , 491 , x) ; 
WINERASELINE(425,205,426,205) ; 
WINERASELINE ( 491 , 205 , 490 , 205 ) ; 
.WINERASELINE(425,227,426,227) ; 
WINERASELINE (491 , 227 , 490 , 227) ; 
WINERASELINE(425 , 227 , 425 , 226) ; 
WINERASELINE(491,227,491,226) ; 
WINERASELINE(425 , 205 , 425 , 206) ; 
WINERASELINE (491 , 205 , 491 , 206 ) ; 
msg there: -FALSE; 

if NOT demojnode THEN comm_init( FALSE) ; 
sting_init ; 
END ; { proc } 

(*- — —■ 

(* compute azimuth 

(* *) 

FUNCTION pazimuth(y,x:real):REAL; 
BEGIN 

IF (x-0.0) THEN x:-0.1; 
IF x>=0 THEN 

pazimuth : -90 . 0- (ARCTAN(y/x) *rad_dsg) 
ELSE 

pazinuth:-270.0-(ARCTAN(y/x)*rad_deg) ; 
END; 

(* 

(* compute heading 

(* - *) 

FUNCTION pheading(y, x: INTEGER) : REAL; 
BEGIN 

IF (x~0) THEN x:-l; 
IF x>-0 THEN 

pheading:-90 . 0- (ARCTAN(y/x)*rad_deg) 

ELSE 

pheading : -2 7 0 . 0 - ( ARCTAN ( y/x) *r ad_de g ) ; 
END; 



(* *) 

(* PCP computes and displays *) 
(* predicted closest point *) 
(* *) 



FUNCTION pep ( range, az, head: real) :REAL; 

VAR beta: REAL; 

BEGIN 

beta : -abs ( abs ( az -head) - 180 . 0 ) ; 
IF (beta<90) THEN 
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pep : -(.range* (cos ( (90 -beta) *deg_rad) ) ) 
ELSE 
pep: -range; 
END; . 



Procedure map_data 
PURPOSE : computes screen pixel location 

computes velocity 
INPUT : traclcrec . ( TPQ data ) 
time_clock 
meters_pixel 
pixel_fujc 
pixel_fujr 
OUTPUT : screen_num 
screen_id 
screen_x 
screen_y 
screen^yel 

----- — - ) 

PROCEDURE map_da ta ( idx , idx2 ; INTEGER) ; 

VAR time_laps : BYTE ; * 

x_rel_fu : real; 

y_rel_fu : real; 
BEGIN 

WITH trackjeec DO 
BEGIN 

WITH screen_tbl[idx] DO 
BEGIN 

screenjnum :=* trackjcium ; 
screeii_fix :^ track_fix ; 
screened :« track_id ; 
screen_weap trackjweap ; 

screen_vel (SQRT(x_vel*x_vel+y_yel*y_vel)*vel_lsb) ; 
time_laps ( clock.b[lJ )-time_tag; 

x_rel_fu:=«( (pos_lsb*x_pos . i )+(x_vel*time_laps*time_yel_lsb ) 
-fu_coord[ll); 

y_rel_fu:-( (pos_lsb*y_pos . i)+(y_vel*time_laps*time__vel_lsb) 

-fu_coord[2]) ; 
screen_x screen_ fu_x+TRUNC(x_rel_fu/meters_pixel) ; 
screen_y screen_fu^-TRUNC(y_rel_fu/ineters_pixel) ; 
screenjxead;«pheading(y_vel,x_vel) ; 
screen_az :«pazimuth(y_rel_fu, x_rel__fu) ; 
s creen_dhead : ™pheading(y_yel+dy_jvel , x_yel+dx_vel ) ; 
screeu_dhead:— ABS(screen_dhead-screen_Jiead) ; 

IF screen_dhead > 180.0 THEN screen_dhead:«360.0-screen_dhead; 
screen_2drange:-(SQRT(x_rel_fu*x_rel_fu +- y_rel_fu*y_rel_fu) ) ; 
screen_alt;«altitude. i*pos_lsb ; 

s cr een_3 dr ange : =» ( SQRT ( s cr een_2 drange*scr een_2dr ange+s cr een_ 
alt*screen_alt) ) ; 

s cr een_el : — (ARGTAN( (screen_al t - f u_coord [ 3 ] ) /scr een_2drange ) *rad_deg ) 
screen_pcp :=pcp (screen_3drange , screen_az , screen_head) ; 
IF (screen_2drange <- alertjrange) THEN 
BEGIN 

IF (abell O 2) THEN 
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BEGIN 

track_tbl[idx2] .abell 1; 
tsound_alert :- true; 
END 
END 
ELSE 

track_tbl[idx2] .abell :« 0; 
END ; 

END ; {with trackjrec } 
END ; { procedure map_data } 



<* *) 

(*l/14/86 *> 
(* elevbar : represents track elevation *) 
(* and stinger elevation via *> 
(* bar graph *) 
(* *) 



PROCEDURE elevbar; 
VAR se , te , x : INTEGER ; 
BEGIN 

IF hook_a_track THEN 

te : -TRUNC ( zero- <hook_el*2 . 78 ) ) 
ELSE 

te:«zero; 
IF sting_on THEN 

se : -TRUNC (zero- (s ting_el . i*0 . 3473 ) ) 
ELSE 

se:=zero; 
WINSETALTERNATEWINDOW(elevptr) ; 
WINERASEWINDOW; 
WINDRAWLINE ( 1 , zero , 12 , z ero ) ; 
FOR x:~5 to 8 DO 

WINDRAWLINE (x , te , x , zero ) ; 
IF sting_on THEN 

FOR x:-se-l to se+1 DO 
WININVERTLINE ( 1 , x , 12 ,x) ; 
elevpoint. x:« 252; 
elevpoint .y 1; 
elevrect . topleft.x :» 1 ; 
elevrect. topleft.y 1 ; 
elevrect. extent. x 12; 
elevrect. extent. y 250; 

WINCOPYREMOTERECTANGLE ( elevp tr , NIL, elevrect , elevpoint , 0) ; 

WINSETALTERNATEWINDOW(NIL) ; 

END; 



(* display T.O.D. 

(* *) 

PROCEDURE timeofday; 
BEGIN 

C0NM0VECSR(44,11) ; 
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showtime (todclock) ; 
END; 



(* - - ----- 

(* display screen dimensions 

(* *) 
PROCEDURE scrndim; 
VAR lintrLONGINT; 
BEGIN 

Lint meters_pixel DIV A ; 
C0NM0VECSR(30,11); 
WRITELN(lint:3, ' X Mint: 3, f KK v ) ; 
END; 

(* 

(* display hooked track data 

(* *) 

PROCEDURE metricdata; 
VAR count: INTEGER; 
BEGIN 
(* 

C0NM0VECSR(44,10); 

CONLINEOUT(weap_buff [hookjweapj , 6) ; 
*) 

C0NM0VECSR(44 f 8); 
WRITE (hook_num : 6 ) ; 
C0NM0VECSR(44,9)r 

IF (pridisp o 0) THEN WRITE (hooker ank: 6) ELSE 
CONLINEOUT ( ' NO -PRI ' , 6 ) ; 

IF NOT mph THEN wrItexyr(44,7,hook_vel, 6,1) ELSE 
writexyr (44 , 7 , (hook_vel*3600/1852) ,6,1); 
CASE mils OF 

0 : writexyr (44, 4 ., hook_az ,6,1) ; 
. l:writexyr(44,4, (hook_az*deg u mil) , 6 , 1) ; 

END; (* case *) 
CASE mils OF 

0 -writexyr (44 , 5 , (hook_el) ,6,1) ; 

1 : writexyr (44, 5 , (hook_el*degjnil) , 6 ,1) ; 

END; 

writexyr (44, 3 , (hooker ange/1000) ,6,1); 
writexyr (44 , 6 , (hook_alt) ,6,1) ; 
C0NH0VECSR(44,2); 

IF (hook_ttc) =» -2.0 THEN CONLINEOUT ( 'NO-ENG' , 6) ELSE 
IF (hookjrtc) - -1.0 THEN CONLINEOUT ( ' IN-RNG ' , 6 ) ELSE 
writexyr (44 , 2 , hook_ttc , 6,1); 
END; 

(*-—-- - 

(* display w/i 4 degree window 

(*-- — -*) 

PROCEDURE onthemoney; 
BEGIN . 
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IF sting_on THEN 
BEGIN 

C0NM0VECSR<44,1); 
IF lock n THEN 

CONLINE0UT( 'ON -TARGET' ,9) 
ELSE 

CONLINEOUTC ' ,9); 

IF (lockon) AND (tJLockon. i=0) THEN t_lockon. i:-todclock. i; 
END; 

END ; { if . - then } 

c* 

(* rank the tracks per priority 

(* *) 

PROCEDURE rank_priority; 

VAR x , y : INTEGER ; temp : rankjrec ; 

BEGIN 

FOR x 1 to stemp-1 DO 
FOR y :- x+1 to stemp DO 

IF rank_tbl[y] .raiikjprio < rank_tbl[x] .rank_j>rio THEN 
BEGIN 

temp :=-rank_tbl [y ] ; 
rank_tbl[y] :=»rank_tbl[x] ; 
rank_tbl[x] :=»temp; 
END; 

END; 



(* inside or outside priority sector 

<* *) 

FUNCTION outsidesector(a:real) : boolean; 

BEGIN 

IF endps > startps THEN 

outsidesector :- NOT ((a>-startps)and(a<»endps) ) 

ELSE 

outsidesector :=* NOT ((a>-startps)or(a<-endps)) ; 
END; 



(* compute priority value 

(* *) 

PROCEDURE prioritize; 
VAR count : INTEGER; 

cpri : REAL; 

n : REAL; 
BEGIN 
tpri:-999; 

FOR count 1 to stemp do 
WITH screen_tbl [count] DO 
BEGIN 

screen__prio:=0; 
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n 0; 

IF screen_3drange > alertjrange THEN screen_prio:=*512 ELSE 
IF screen_id - 2 THEN screen_prio:-256 ELSE 
IF outsldesector(screen_az) THEN screen_prio: -128 ELSE 
IF (screen_vel>-30) AND (not (screen_dhead>-2.25) ) THEN 
BEGIN 

IF screen_3drange - screen_pcp THEN screen_prio :=» 64 ELSE 
IF screenj>cp>5000 THEN screen_prio:-32 ELSE 
IF screen_pcp<1000 THEN screen_prio : -16 ■; 
END; ^ . 
IF screen_prio-*0 THEN 
BEGIN 

IF screen_3drange > 5000 then screen_prio:-8 ELSE 
IF screen_alt > palt THEN screenjprio:«4 ELSE 
IF screeri_vel > pvel THEN screenj>rio:-2 ELSE 
IF (not (screen_dhead>-2.25)) THEN screenjxrio:— 1; 
END; •■ 

IF screen_vel-0 THEN n:=screen_3drange/100000 ELSE 

n:=(screen_3drange/screen_vel)/100000; 

screen _j>rio : -screenjr io+n; 

rank_tbl [count] .rank_num:=screen_num; 

rank_tbl [count ]. rankjnrio : -screen_j>rio; 

IF screen_prio < tpri THEN 
BEGIN . . 
tpri :-screen_j>rio ; 
pri_num: -screenjaum; 
END; 

END; 

END; 

(* — — 

(* draw priority sector 

(*------------ — --..-*) 

PROCEDURE prioritysector; 
BEGIN 

tf INDRAWLINE ( scr eenjEox , s cr eenJE u_y , 

screen jftrx+TRUNC ( 300*SIN(startps*deg_rad) ) , 
screen_fu_y-TRUNC(300*C0S(startps*deg_rad) ) ) ; 

WINDRAWLINE(screen_fu_x f screen_fu_y, 

screen_fu_x+TRUNC(300*SIN(en<^>s*deg_rad) ) , 
screen_fu_y-TRUNC(300*COS (endps*deg_rad) ) ) ; 

END; 

{ - ; display tracks on screen ) 

PROCEDURE display ; 

VAR r, count, x: INTEGER ; 

BEGIN 

WINSETALTERNATEWINDOW(mptr) ; 
WINERASEWINDOW; 

WINDRAWLINE(screen_fu_x, screen_fu_y-2, screenjfujc, screen_fu_y+2) ; 
WINDRAWLINE(screen_fu_x-2 , screen_fu_y , screen_fujt+2 , screen_fu_y) ; 
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WINDRAWLINE(ball_x+7,ball_y-7 ,ball_x+7,ball_j+7) ; 
WINDRAWLINE ( ba 1 l_x+7 , ball_y+7 , ball_x - 7 , ball_y+7 ) ; 
WINDRAWLINE <ball_x- 7 , ball_y+7 ,ball_x- 7 , bailor- 7 ) ; 
WINDRAWLINE(ball_x- 7 , bailor- 7 ,ball_x+7 , ball_y- 7 ) ; 
FOR count 1 to stemp DO 
BEGIN 

WITH screen_tbl[ count] DO 
BEGIN 
CASE screen_id OF 
0: BEGIN 

WINDRAWLINE(screen_x+3 , screen_y-3 , screen_x+3 f screen_>M-2) ; 
WINDRAWLINE (screen_x+2 , screenjr+3 , screen_x-2 1 screen_y+3) ; 
WINDRAWLINE(screen_x-3,screen_y+2 f screen_x-3, screen _y-3) ; 
END; 
1: BEGIN 

WINDRAWLINE (screen_x+4 , screen^y , screen_x , screenjr+4) ; 
WINDRAWLINE (screenjc- 1 , screen_y+3 , screen_x-4 , screen _y) ; 
END; 
2: BEGIN 

WINDRAWLINE(screen_x-l,screen - y-4 f screen__x+l, screen_y-4) ; 
WINDRAWLINE (screen_x+2 , screen_y-3 , screen_x+4 , screen_jr-l) ; 
WINDRAWLINE(screen_x+4,screen_y,screen_x+4 l screen _y+l) ; 
WINDRAWLINE (screen_x+3 , screen_y+2 , screenjc+1 , screen _y+4) ; 
WINDRAWLINE(screen_x,screen_y+4,screen_x-l l screen_y+4) ; 
WINDRAWLINE(screen_x-2 , screen _y+3 , screen_x-4 , screenjr+1) ; 
WINDRAWLINE(screen_x-4,screenjr f screen_x-4 p screen _jr-l) ; 
WINDRAWLINE ( screen__x- 3 , screenjr- 2 , screen_x - 2 , screenjr- 3 ) ; 
END; 
3: BEGIN 

WINDRAWLINE (screen_x t screen_y-4, screen_x+4 , screen_y) ; 
WINDRAWLINE (screenjc+3 , screen_y+l , screen_x , screen _jr+4) ; 
WINDRAWLINE ( screenjc- 1 , screen_y+3 , screenjc- 4, screenjr) ; 
WINDRAWLINE (scree n_x - 3 , screen_y- 1 , screenjc- 1 , screenjr- 3 ) ; 
END; 

END; (* case *) 

IF screen_vel > hi_velocity THEN r := 15 ELSE 

IF screen_vel > lo_velocity THEN r 5 ELSE 

r 0 ; 

IF r o 0 then 

WINDRAWLINE ( screen_x , screen_y , 

screenjc+TRUNC(r*SIN(screen_head*deg_rad) ) , 
s creen_y - TRUNC ( r*C0S ( scr een_head*deg_r ad) ) ) ; 

IF screen_fix THEN WINDRAWLINE(screenjc-5 , screenjr- 5 , screenjc+5 , 
screen_y-5) ; 

IF (hook_a_track) AND (hookjium - screen_num) THEN 
BEGIN 

WINDRAWLINE (screenjc+7 , screen_y- 7 , screenjc+7 , screen_y+7 ) ; 
WINDRAWLINE ( screenjc+7 , screenjr+7 , screenjc- 7 , screen_y+7 ) ; 
WINDRAWLINE (screen^x- 7 , screen_y+7 , screenjc- 7 , screenjr- 7) ; 
WINDRAWLINE (screenjc -7 , screenjr- 7 , screenjc+7 , screen_y-7) ; 
END 
ELSE 

IF (pridispOO) AND (prijium - screenjium) THEN 
WINCIRCLE ( screen jc,scr enjr,8>;, 
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END ; { with screen_tbl ) 
END ; { for -., next } 
IF sting_on*THEN ; 

WINDRAtfLINE( screen_f ux, screen_fu_y , 

screen_fujc+TRUNC(100*SIN(sting_az. i*deg_rad_az) ) , 
screen_f u^-TRUNC (100*COS ( sting_az . i*deg_rad_az ) ) ) ; 
IF (pridispOO) THEN prioritysector; 

WINCIR<nj:(screen_fujx,screen_fujr f alerter ange DIV ineters_pixel) ; 
WINCOFYREMOTERECTANGLE (mptr , nil r mrec t , nrpoint , mmode ) ; 
WINSETALTERNATEWINDOV(NIL) ; 
IF hook_a^t;rack THEN 

BEGIN ■ [ 

metricdata; 

onthemoney; 

END; 
scrndim; 
timeofday; 

el^vbar; - 
END; { proc } 

(* - - "-*) 

(* PIP computes and. displays *) 
(* predicted intercept point *) 

(* - *) 

FUNCTION pip (range :REAL): REAL; 
VAR alpha , ganma2 , tl , t2 , bm : REAL ; 

BEGIN - ' 

alpha:-abs (abs(hqok_az-hook^head) - 180 . 0) ; 
gamma2:~- 1; 

IF (range>stlng_max> AND ( alpha<90) THEN 
BEGIN 

tl:«abs(s±n(alpha*deg_rad)) ; . 
t2:-(range*tl)/sting u max; . 
IF t2<-1.0 THEN 

gamma2 : -180 . 0 - (arcsin( t2) *rad_deg) ; 
IF gamma2 > 90.0 THEN . 

bm:*(sting_max*abs(sin((180.0-alpha-gaimiia2)*deg_rad) ) )/tl; 
END; 

IF (range<~sting_max) AND (range>-sting_min) THEN pip:«-l ELSE 
IF (gamma2<«90.0) OR (range<sting_min) THEN pip: — 2 ELSE 
pip ;«bm/hook_vel ; 
END; 



(*-- 

(* clear hooked track 

(* - *) 

PROCEDURE erasemetricdata; 

VAR x : INTEGER; 

BEGIN 

manhdok: -FALSE ; (*rca*) 
hook_a_track FALSE ; 
C0NM0VECSR(44,1) ; 
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CONLINEOUTC ',9); 
FOR x :- 2 ta 10 DO 
BEGIN 

C0NM0VECSR(44,x) ; 
CONLINEOUTC ',8); 
END; 
END ; 



<* - 

(* get the priority ranking 

(* .-.- — -.*) 

FUNCTION get_rank: INTEGER; 
VAR count: INTEGER; 
BEGIN 

get_rank: — 1; 
count 

WHILE (hook_num<>rank_tbl[count] .ranknum) AND (count <«■ stemp) DO 

count : -count+1 ; 
IF countOstemp THEN get_rank :~count; 
END; 



Procedure hook_track_process 

PURPOSE : locate hooked track in track table 

compute x and y coordinates based on time lapse 
compute azimuth, elevation, heading and range 

• INPUT : hook_a_track y hpok num 
track_tbl 

OUTPUT : hook rec 



•} 



REAL ; 
INTEGER ; 
REAL ; 
track_type 
BYTE ; 



PROCEDURE hook_process 
VAR twod_range 
count 

x_rel_f u f y_rel_f u 
trackjrec 
time_laps 
BEGIN 

IF hook_a_track THEN 
BEGIN 

count 1 ; 

WHILE (hook_nunK>screen_tbl[ count] . screen_num) AND (count <= 

count :-count+l; 
IF (count O stemp) THEN 

BEGIN 

WITH screen_tbl[ count] DO 
BEGIN 

hook_weap screen_weap; 
hook_id screened; 
hook_vel :- screen_vel; 
hook^az screen_az; 
hookjrange :=- screen_3drange; 
hook_alt screen_alt; 
hook head :- screen_head; 



stemp) DO 
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ho k_el . :-• screen_ei; 
hook_dhead screen_dhead; 
hook_ttc pip(hookjrange) ; 

IF (hook_ttc - -1) AND (tJLnrange.i - 0) THEN t_inrange , i : 

todclock^i; 
IF (pridispOO) THEN hook_rank:«get_rank; 
END ; { with screen rec } 
END 
ELSE 
erasemetricdata 
END ; {if., then } 
END ; { procedure hook_track_process } 



c* — - — — 

(* quicker extrap for stinger 

(*---— — .:.-,.---*) 

PROCEDURE stingjtiook; 

VAR twod_range : REAL ; 

count : INTEGER ; 

xj:el_fu,y_rel_fu : REAL ; 

track_rec : track_type ; 

time_laps : BYTE ; 

BEGIN 

IF hook_a_track THEN . 
BEGIN 

count L ; - •"• 

WHILE (hook_nuntOtrack^tbl [count] .track_num) AND (count <- max_track) DO 

count : -count+1 ; 
IF (count <- max_track) AND (track_tbl[ count] .active) THEN 

BEGIN j 

track_rec :« track_tbl [count] ; 

WITH trackjrec DO 
BEGIN 

time_laps :~ (clock. b fl] ) -time_ tag; 

x_rel_fu:«( (pos_lsb*x_pos. i)+(x^vel*time_laps*time_veL_lsb) 
-fu_coord[lj) ; 

. y_rel_f u : =»( (pos_lsb*y_pos . i) Hy_vel*tlme_laps*tinie_ve l_lsb ) 
-fu_coord[2]) ; 
hook_az : — pazimuth(y_rel_fu, x_rel_fu) ; 

twod_range :=» SQRT(x^rel_fu*x_rel_fu + y_rel_fu*y_rel_fu) ; 
hookjrange : -SQRT ( twod_range*twod_r ange+al ti tude . i*alti tude . 

i*pos_lsb_sq) ; 
IF (twod_range-0.0) THEN twod_range:«0.1; 

hook_el :«(ARCTAN( (altitude . i*pos_lsb- fu_coord{ 3 ] )/twod_range) 

*rad_deg) ; 
END ; £ with track. rec } 
END ;. 
END* 

END ; { procedure sting_hook } 

{ - locate hooked track via hook ball - } 

PROCEDURE ball _hook ; 
var x,y,r,rl : REAL ; 

count ,thn : INTEGER j 
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x ball_x-screen_tbl[l] .screen_x; 
y : « ball_y-screen_tbl[l] .screen_y; 
r SQRT(x*x+y*y); 
thn screen_tbl[l] .screenjium ; 
FOR count :- 2 to stemp DO 
BEGIN 

x balljc- screen_tbl[ count ] .screenjc; 
y :- ball^- screen_tbl[ count ] .screen_y; 
rl:- SQRT(x*x+y*y) ; 
IF rl < r THEN 

BEGIN 

r :~ rl ; 

thn screen_tbl [ count ] . screen_num ; 
END; 
END; 

state idle ; 
hook_a_track :- TRUE ; 
manjiook :- TRUE ; 
hookjium thn ; 
t_hooknum:- thn; 
t_inrange.i:-0; 
t_lockon. i:-0; 
t_hookt im . i : - todclock . i ; 
bal l_x : -s creen_f u_x ; 
ball_y:=-screen_fu _j\ 
END; 

(* 

(* sound alarm 

(* *> 

PROCEDURE beepit; 
BEGIN 

OSSETPRIORITY(prog_pid, soundj>ri , errorw) ; 
beep ; 

OSSETPRIORITY(progjpid , prog_pri , errorw) ; 
END; 



{ Procedure table_manager 

{ PURPOSE : locate active tracks in track table 

{ call map_data 

{ call memory_map 

{ call hook_track_process 

{ call display 

{ --) 

PROCEDURE tablejnanager ; 
VAR count : INTEGER ; 

time_laps : BYTE ; 
BEGIN 

count 1 ; 
stemp 0 ; 
tsound alert FALSE; 
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" WHILE count <- max_track DO 
BEGIN 

IF track_tbl[ count}. active THEN 
BEGIN 

time_laps (clock. b [ 1] ) - trackjrbl [ count] . time_tag ; 
IF time_laps > del_rate THEN 
BEGIN 

track_tbl [count] .active false; 
track_tbl [count] .abell 0; 
track_tbl[ count] .firstjslte 0; 
END 
ELSE 
BEGIN 

track_rec ;=■ track_tbl[ count] ; 
stemp:-stemp+l ; 
map_data(s temp , count) ; 
END ; 

END. ; {-if . . then } 

count :=» count + 1 ;. 

END ; { while } 
IF (tsound_alert) AND (audible) THEN beepit; - 
IF state - ball_active THEN balljhook; 
IF (pridispOO) THEN 

BEGIN 

prioritize; 
rankj>riority; 

END; " ' 

hook_process ; 
display; 

END ; I procedure hook_trackj>rocess } 

(*__..-_— — ........... - 

(* unsound alarm 

(*— — ---- -*) 

PROCEDURE alert_off ; 
VAR x : INTEGER; 
BEGIN 

FOR x 1 to max_track DO 

IF ((track_tbl[x] .active) and (track_tbl[x] .abell - 1» THEN 
track_tbl[x] .abell 2 ; 
tsound_alert :« FALSE ; 
END; 

(*— - — - ----- 

(* ranking number for prio 

(*—----- *) 

FUNCTION get_rank_num(x : INTEGER) : INTEGER; 

VAR count: INTEGER ; 

BEGIN 

get_rank_num :*»-!; 

IF x<=»stemp THEN get_rank_num:-rank_tbl[x] .rankjnum; 
END; 
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(* data capture 

(*---- *) 

PROCEDURE write it; 
VAR x : INTEGER; 
BEGIN 

FOR x :- 1 TO stemp DO captureit(screen_tbl[x] ) ; 
END; 



( Procedure fkey_manager 

{ PURPOSE : handle interrupts from keyboard 

( perform necessary keyboard functions 

{ INPUT : char_in 

{ injrocess 

{ OUTPUT : hook_a_track 

( hookjiumber 

{ cage_bit 
{ led_bit 

{ - } 

PROCEDURE fkeyjnanager ; 
VAR char_in : char_byte ; 

count : INTEGER ; 

test : BOOLEAN ; 
BEGIN 

char_in.c CONCHARIN ; 
CASE state OF 

num_pend : BEGIN 

IF (char_in.b in [30H . . 39H ] ) AND (ccount <« 2) THEN 
BEGIN 

CONMOVECSR(45+ccount,13) ; 
CONCHAROUT ( char_in . c ) ; 
ccount ccount + 1 ; 
kbuff [ccount] :~ char_in.b-30H ; 
END 
ELSE 

IF char_in.b - cr THEN 
BEGIN 

FOR count 1 to ccount DO 

t_hook_num t_hook_num*10 + kbuff [count] ; 
hook_a_track :« ccount O 0 ; 
man_hook : -ho ok_a_ track ; 

IF NOT rank THEN~hook_num t_hook_num ELSE 

hook_num:~get_rank_num(tJiook_num) ; 

t_hooknum:- hook_num ; 

t_inrange . i : =0 ; 

t_lockon.i:=0; 

tjiooktim. i:-todclock. i ; 

state idle ; 

CONMOVECSR(30, 13) ;CONLINEOUT( ' ' , 19) ; 

IF NOT hook_a_track THEN erasemetricdata; 

END 
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END; 

idle., 

ball_pend:CASE char_in.b OF 



196 


* 


bailor , 


balljr + 5; 


198 




ball x 


- ball x - 5; 


199 




ball x , 


ball x + 5; 


197 


I 


ballsy 


- balljr - 5; 


206 


: 


balljr * 


balljr + 40; 


208 


; 


ball x : 


ball_x - 40; 


209 


: 


ball x : 


ball x + 40 ; 


207 


: 


ball_y : 


- balljr - 40; 


68h,48h 


; 


state : -ball_active ; 


69h,49h 




IF meters_pixel > 40 THEN meters_pixel:= 






meters_pixel DIV 2 ; 


6fh,4fh 




IF meters_pixel < 640 THEN meters_pixel: = 






meters_pixel * 2 ; 


75h,55h 




screeti_fu_y := screeti_fu_y- 10 ; 


64h,44h 




screen_fu_y :« screen_fu_y+10 ; 


6ch,4ch 




screen_fu_x screen_fu_x-10 ; 


72h,52h 




screen fu x screen fu x+10 ; 


7 ah, 5 ah 




led bit 


(led bit + 1) MOD 8; 


21h 




stop: -TRUE; 


70h,50h 




BEGIN 





update jarm(TRUE) ; 
IF demo_mode THEN 

iowrapup 
ELSE 

BEGIN 



deac tivateradar ; 
f ake_radar : -FALS E ; 
1 : . IF NOT iaok THEN conuu_init (FALSE) ; 

END; 
END; 

73h,53h : BEGIN 

hook_a_track :=» stemp O 0 ; 
manjtiook: =hook_a_track; (*rca*) 
IF hook_a_track THEN 
■: REPEAT 

hookJLdx (hookjLdx MOD max_track) + 1 ; 
UNTIL track_tbl[hook_idx] .active ; 
hookjium track_tbl[hook_idxJ . trackjium ; 
tjhooknum:- hook_num ; 
t_inrange , i : -0 ; 
t_lockon.i:=0; 
t_hooktim.i:-todclock.i 
END ; 

6eh,4eh : BEGIN 

ccount :- 0 ; 
tJiook_num :~ 0 ; 
state :» num_pend ; 
rank : -FALSE ; 

C0NMOVECSR(30, 13) ; CONLINE0UT( 'HOOK NUMBER ? : \ 15) ; 
. END ; 

30h,31h, 
32h,33h, . . 
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3411,3511, 
36h,37h, 

38h,39h : IF (pridispOO) THEN 
BEGIN 

ccount :- 1 ; 

kbuff fccount] :-char_in.b-30h; 

t_hook_num. :- 0 ; 

state :- num_pend ; 

rank: -TRUE; 

CONMOVECSR(30,13) ; 

CONLINE0UT ( ' PRIORITY RANK: ' , 15) ; 

C0NCHAR0U? ( char_in . c ) ; 

END ; 
63h f 43h : BEGIN 

screen_fu_x :- win_dim DIV 2 ; 
screen_fu_y win_dim DIV 2 ; 
END; 
20h: alert_off; 
74h,54h : BEGIN 

CONMOVECSR(30,0); 
IF NOT capture THEN 

BEGIN 

testfn:-capname ; 
testfn[l]:-CHR(17); 

errorl. :- 0SATTACH(testfn,3 ,fonres, 3, error) ; 
0SDETACH(errorl,error2) ; 
IF error O 0 THEN 

conlineout ( ' DSKERR ' , 6 ) 
ELSE 

BEGIN 

REWRITE(capfil, ' 'w'dat 1 data- text-' ) ; 
conlineout ( ' CAPTURE ' , 7 ) ; 
capful:-0; 

mempos : =™u ; (*28apr86*) 
capture :- not capture; 
END 
END 
ELSE 
BEGIN 

err or 2 : -OS WAIT ( c s id , 1000 , error 1 ) ; 
capture :» not capture; 
PQCLOSE(capf il) ; 
conlineout (' ',7); 
END; 
END; 

6dh,4dh : BEGIN 

mils:-(mils+l) MOD 2; 
CONMOVECSR(52,4); 
CASE mils OF 

0:CONLINEOUT('deg',3); 

1 : CONLINEOUT ( ' mil ' , 3 ) ; 

END; (* case *) 
CONMOVECSR(52,5); 
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CASE mils OF 

0 : CONLINEOUT ( ' de g ' , 3 ) ; 
1 : CONLINEOUT ( ' mil ' , 3 ) ; 
END; (* case *) 

END; 

76h,56h : BEGIN 

mph: -NOT mph; 
CONMQVECSR(52,7); 
..IF mph THEN 

CONLINEOUT ( r kts ' r 3 ) 
ELSE 

CONLINEOUT ( ' m/s ' , 3 ) ; 
END; 
66h,46h: BEGIN 

IF demo_mode THEN 

BEGIN 

fake_ radar: -NOT fake_radar; 
IF fake_radar THEN 
activateradar 
ELSE 
deactivateradar; 
END; 
END; 

65h,45h: evaluate; 
03h:- BEGIN 

deactivateradar ; 

OSDELETEPROCESS(time_pid, errorw) ; 
' OSDELETEPROCESS (sp , errorw) ; 
END; 
END ; { case ) 
END; { case } 
END ; [ procedure fkey_manager } 



{ main program } 

BEGIN 

initialize ; 
REPEAT 

WHILE conkeypressed DO fkey_manager ; 
table_manager ; 
IF capture THEN writeit; 
UNTIL stop ; . 

bfont :~ WINSETFONT(lfont f fonrec,0) ; 

CONRESETDISPLAY; 

OSEXIT(O) ; 

END 
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$NOLIST 

$COMPACT( -const in code-) 
MODULE iointerface ; 

$ INCLUDE ( 1 w % incs x common . inc~text~) 

$INCLUDE ('w'incs'conpas.inc-text--) 

$INCLUDE ( % w 1 incs 1 ospasprocs . inc~text-) 

$INCLUDE ( ' w 1 incs * ospastypes . inc~text~) 

$INCLUDE ( 1 w' incs 'windowp rocs . inc-text~) 

$INCLUDE ( 'w* incs 1 windowtypes . inc~text~) 

(* - - *) 

(* INTERFACE SECTION *) 
(* *) 
(* *) 

PUBLIC tablemgr ; 

CONST synl - OAAH; 

syn2 - 55H; 

io_buffJLng - 11; 

VAR iojbuffer : ARRAY [1. . io_buff_lng] of BYTE 

io_pid : WORD ; 
fonrec : FONTINFORECORD ; 
lfont,bfont: fontpointer ; 
dumptr : windowregionptr ; 
pe;ine : WORD; 

PUBLIC tablemgr ; 
PROCEDURE msg_handler ; 

PUBLIC iointerface ; 

PROCEDURE comm_init(man_dial: BOOLEAN) ; 
PROCEDURE handle_it ; 
PROCEDURE iowrapup; 

PUBLIC iointerface ; 
VAR iaok : BOOLEAN ; 



PRIVATE iointerface ; 
CONST 

devname — ' 'modem' ; 
io_length - 11; 
f if ©length- 250 ; 
io_delay - 300 ; 

TYPE 

stattype - ARRAY [1..15] of byte ; 
fifoptr - A fifobuffer ; 
fifobuffer- ARRAY [1. .fifolength] of BYTE ; 
fifotype - RECORD 

mode : CHAR ; 
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ptr : fifoptr 


t 




' length . : WORD 


i 




END; 




totype - 


RECORD 






mode : CHAR ; 






vail : WORD; 






val2 : WORD; 






END ; 




f Ifo 


i fifotype ; 




injDuff 


; f if ©buffer ; 




modemid 


: WORD ; 




ch,kb 


CHAR ; 




parblock 


: PACKED ARRAY [1. . 


9] of CHAR ; 


pathname 


: PACKED ARRAY [1,. 


7] of CHAR ; 


reserved 


• BYTE ; 




error 


: WORD ; 




nlength 


; INTEGER ; 




actual 


INTEGER . ; 




io_jpos 


INTEGER ; 




statrec 


. stattype ; 




io_state 


; INTEGER ;■ 




csum 


BYTE ; 




timout * 


totype ; 




ip : 


: WORD ; 




dptr : 


windowregionptr ; 




thur : 


WORD; 





(*. IOWRAPUP shuts down modem port *) 

(*- -■ — *) 

PROCEDURE iowrapup; 
BEGIN 

iaok FALSE; 

OSDELETEPROCESS ( ip , error) ; 

parblock[l] :° CHR(5) ; 

OSSETSTATUS (modemid, parblock, 1 , error) ; 

parb!ock[l] CHR(42); 

OSSETSTATUS (modemid, parblock, 1 , error) ; 

OSCLOSE (modemid , error) ; 

OSDETACH (modemid, error) ; 

END; 

<* 

(* comm status 

(* --*> 

PROCEDURE csys ; 
BEGIN 

WINS ETALTERNATEWINDOW ( NIL) ; 
C0NM0VECSR(45,24) ;. 
CONLINEOUT( r COMH STAT: ',11); 
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END; 
(* 

(* comm err r 



■*> 



+ 1 



WINSETFONT ( 1 font , f onrec , 0) ; 



PROCEDURE commerr (error: WORD) ; 
VAR dfont : f on tpo inter; 
BEGIN 

IF (error - 403) THEN 
pe :=» pe 
ELSE 
BEGIN 
dfont 
csys ; 

CASE error of 
231:CONLINEOUT 
998:CONLINEOUT 
999:CONLINEOUT 
221:CONLINEOUT 
400:CONLINE0UT 
401:CONLINEOUT 
402:CONLINEOUT 
406:C0NLINE0UT 
OTHERWISE CONHEXOUT(error) ; 
END; (*case*) 
WINSETALTERNATEWINDOW ( dump tr ) ; 
dfont WINSETFONT(bfont,fonrec,0); 

IF not ( error in (Offffh, 997 ,998,999,403] ) THEN iaok :« false; 
END; 
END; 



('NOT ACTIVE 


',16) 


('ACTIVATING 


',16) 


('ON LINE 


*,16) 


('BAD CONNECT 


',16) 


('NO ANSWER 


',16) 


( 'TIME-OUT 


' ,16) 


('LOST CARRIER 


',16) 


( ' INVALID NUMBER 


',16) 



(*- 
(* 
(*- 



IOHANDLER builds 10 BUFFER 



-*) 
*) 
-*) 



PROCEDURE io_handler ; 
VAR x : INTEGER ; 

by: BYTE ; 

Ing: WORD; 

BEGIN 

lng:-statrec[8] ; 

actual : =» OSREAD (modemid , in_buf f , lng , error) ; 
IF error O 0 THEN commerr(error) ; 
FOR x 1 to actual DO- 
BEGIN 

by in_buff [x] ; 
CASE iojstate OF 

0:IF by - synl THEN io_state :~ 1 ; 
1:IF by - syn2 THEN 
io_state :«- 2 
ELSE 
BEGIN 

csum 0 ; 
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io_state 0 ; 
END ; - 
2: BEGIN 

IF Io_pos - io_length THEN 
BEGIN 

io_state 0 ; 
iojos 0 ; 
IF csum — by THEN 
msg_handler 
ELSE 

me me+1; 
csum 0; 
END 
ELSE " 
BEGIN 

csum csum -f by ; 
io_pos iojos + 1 ; 
io_buffertio_posj by ; 
END; 
END; 

END; (* case *) 
END; (* for., next *) 
END; (* proc *) 

(* CHARJDET sees if anything in FIFO buffer?*) 
(* also checks for comm. errors *) 
(*-. — - ---- --*) 



FUNCTION chardet : BOOLEAN ; 

VAR x : INTEGER ; 

BEGIN 

OSGETSTATUS (modemid, s tatrec , 15 , error) ; 

IF statrec[ll] O 2 THEN error 402 ; 

char_det (statrec[8] O 0) AND (error - 0) 

if s tatrec [8] > pe then pe:«statrec[8] ; 

IF error o 0 THEN commerr (error) ; 

END; 



(* 

(* initialize commo 

(* *) 

PROCEDURE comm_init (man_dial : BOOLEAN) ; 

VAR dfont:fontpointer; 

BEGIN 

thur:«0; 

io_state 0; 
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io_pos 0; 
csum 0; 
iaok: -FALSE; 
pe :- 0; 
me 0; 
commerr(998) ; 

0 S D ELETEPROCES S ( ip , error) ; 
iowrapup ; 

(* attach the modem *) 

pathname devname ; 
pathnamefl] CHR(6) ; 
reserved 0 ; 

modemid OSATTACH (pathname ,oldfilemode, reserved, 1, error) ; 
IF error O 0 THEN c ommerr( error ) ; 

(* open modem *) 

OSOPEN (modemid, 1, error) ; 

IF error O 0 THEN commerr (error) ; 

(* - init modem *) 



parblockfl] 
parblock(2] 
parblock[3] 
parblock(4] 
parblock[5] 



(* mode *) 

(* async *) 

(* 8 dtat bits *) 

(* 1 stop bits *) 

(* even parity *) 



CHR(l) 
:= CHR(l) 
CHR(8) 
CHR(l) 
CHR(l) 

OSSETSTATUS (modemid, parblock, 5 , error) ; 
IF error O 0 THEN commerr (error) ; 

(* new fifo *) 

fifo. mode CHR(4) ; 
NEW(fifo.ptr) ; 
fifo. length fifolength ; 
OSSETSTATUS (modemid, fifo , 5 , error) ; 
IF error O 0 THEN commerr ( error ) ; 

(* baud rate *) 

parblockfl] :« CHR(7) ; (* mode *) 
parblock[2] CHR(7) ; (* 1200 *) 
OSSETSTATUS (modemid, parblock, 2 , error) ; 

ip OSFORKPROCESS (handle_it , 40 , TRUE , 2000 , error) ; (* 20 - old serial *) 
END; 



(* *) 

(* HANDLE_IT task used to retreive radar data *) 
(* or establish comm link *) 

(* *) 

PROCEDURE handle_it ; 
BEGIN 
REPEAT 
WHILE iaok DO 
BEGIN 

OSDELAY(io_delay) ; 

WHILE char_det DO io_handler 

END; 

WHILE NOT iaok DO 
BEGIN 
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0SDEIAY(io_delay) ;' 

parblockfL] CHR(5) ; 

OSSETSTATUS (modemid, parblock, 1 , error) ; 

parblock[l] :-CHR(42); 

OSSETSTATUS (modemid, parblock, 1 , error) ; 

(* — answer mode 

parblock[l] CHR(43) • (* mode *) 
parblock[2] CHR(2) ;' (* 9600 *) 
OSSETSTATUS(modemid, parblock, 2 , error) ; 



parblock[l] :~ CHR(41) ; (* mode *) 
OSSETSTATUS (modemid, parblock, 1, error) ; 

(* set time out limits 

timout.mode CHR(2) ; 

timout.vall 3000; 

timout,val2 :=» 10000; 

OSSETSTATUS (modemid, timout , 5 , error) ; 

(*- data mode 

parblockfl] : = CHR(6) ; 
OSSETSTATUS (modemid, parblock, 1 , error) ; 
IF (error - 0> THEN ■ 
BEGIN 

commerr(999) ; 

iaok true; 

END; 
END; 
UNTIL FALSE ; 
END; 



(* 



off hook 
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$N0LIST 

$C0MPACT( -const in code-) 

MODULE panninterface ; 

$INCLUDE ( 1 w* incs 1 common. inc~text>) 

$INCLUDE ( 1 w* incs % conpas . inc-text-) 

$INCLUDE ( % w 1 incs 1 ospasprocs . inc-text-) 

$INCLUDE ( 1 w 1 incs 1 ospas types . inc-text~) 

§INCLUDE ( % w % incs * windowprocs . inc-text-) 

$INCLUDE ( 1 w' incs 'windowtypes . inc~text~) 

(* *) 

(* INTERFACE SECTION *) 
(* *) 

PUBLIC CommonTypes; 
TYPE 

StringDescriptor - RECORD 

len : Word; 

max : Word; 

dummy : Byte ; 

chars: ARRAY [1. . 65535] OF Char; 
END; 

StringPtr - A StringDescriptor ; 



PUBLIC StringProcs; 

FUNCTION NewString(maxLength: Word): StringPtr; 
PROCEDURE AppendChar(dest: StringPtr; ch: Char); 
PROCEDURE FreeString(VAR str: StringPtr); 

FUNCTION StringToReal(str: StringPtr; VAR converted: Boolean): LongReal; 

PUBLIC tablemgr ; 
CONST 

maxentry - 16 ; 

TYPE 

string8 =» packed array [1..8] of char; 

erectype - RECORD 

xpos: INTEGER ; 

ypos: INTEGER ; 

mlng: BYTE ; 

val : string8; 

editt: byte; 

END; 

coord_type - ARRAY [1. .3] of LONGINT ; ( LSB of 2.34375 ) 
VAR 

erec : ARRAY [0. .maxentry] of erectype ; 

gridjnagjiorth: REAL ; 

dlrp_coord : coord_type ; { DLRP x, y, and z coordinates ) 

fu_coord : coord_type ; { Fire Unit x, y, and z coordinates ) 
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alert_range : 


INTEGER ; 


optr - : 


windowr gionptr ; 


opoint : 


point ; 


orect 


rectangle ; 


fonrec 


FONTINFORECORD ; 


lfont.bforit 


fontpo inter ; 


audible : 


, BOOLEAN ; 


auto_hook : 


BOOLEAN ; (*rca* 


demojnode 


: BOOLEAN ; 


pridisp 


BYTE ; . 


startps 


: REAL.; 


endps 


: REAL ; 


pvel 


: REAL ; 


palt 


REAL ; 



PUBLIC parminterface ; 

PROCEDURE update_parm(tf: BOOLEAN) ; 



PUBLIC tableingr; 
PROCEDURE beepit; 



PRIVATE parminterface ; 
CONST 

ledit - 0; 
medit =1; 
pedit « 2; 
redit « 3; , 
bedit ■ - 4; 
•iedit - 5; 
pniedit -6; 

TYPE 

estringtype - RECORD 

chars : string8 ; 
len : integer; 
END; 



VAR estring : estringtype ; 



quit : BOOLEAN ; 

entry : INTEGER ; 

neg : BOOLEAN ; 

dfont : fontpointer; 

<*-- — - *> 

(* start of regular parameter menu *) 

(*- — :'— — *) 

(*- -~ 

(* position the cursor 
(* - *) 
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PROCEDURE poscursor ; 
BEGIN 

CONMOVECSR(erec [entry] .xpos, rec[entry] .ypos); 
END; 



(* 

(* keyboard input of string 

(* *) 

PROCEDURE getstring ; 
VAR by : BYTE ; 

x: integer; 
BEGIN 

CONDEFCSR ( TRUE ) ; 

estring. chars:-' ' ; 

estring.len:=»0; 

repeat 

by ORD ( CONCHARIN ) ; ' 

IF (NOT (by in [13,27])) AND (estring.len < erec [entry] .mlng) THEN 
BEGIN 

WRITE (CHR(by) ) ; 

es tr ing . len : -e s tr ing . len+1 ; 

estring. chars [estring.len] :-chr(by) ; 

END; 

UNTIL (by in [13,27]); 

quit :- (by - 27); 

CONDEFCSR(FALSE); 

IF estring.len O 0 THEN 

for x:- estring. len+1 to erec [entry] .mlng do concharout(' '); 

END; 
(* 

(* real number validate 
<* *) 

FUNCTION arrtoreal(s:string8;var b : boolean) : real ; 

var t:stringptr;x: integer; 

BEGIN 

t:«newstring(8) ; 
x:-l; 

while s[x] O ' ' do 
begin 

appendchar ( t , s [ x] ) ; 

x:=x+l; 

end; 

arrtoreal:-strtngtoreal(t,b) ; 

freestring(t) ; 

END; 

<* " 
(* mills validate 

(* *) 

FUNCTION mlcheck(s : string8) :boolean; 
var r :real;b:boolean; 
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BEGIN 

r : ~arr toreal (s , b ) ; 

if b then b:-(r<-6400)and(r>-0) ; 

mlcheck:«b; 

END; 

(* 

(* priority mills validate 
(*— — - — — . *) 

FUNCTION pntlcheck(s;string8) iboolean; 

var r: real ;b iboolean; 

BEGIN 

r:-arrtoreal(s,b) ; 

if b then b:-(r<-640G)and(r>— 6400); 

pmlcheck:«h; 

END; * 



(* — *) 

(* AOK validates entry *) 
(*— *) 

FUNCTION aok : BOOLEAN ; 
VAR tadk : BOOLEAN ; 

t lint : longint; treal : real ; 

tstringcstringS; . 
BEGIN 

taok TRUE ; 

if estring.Len O 0 then 

case erec [ entry] .editt of 

iedit : treal :~arrtoreal (estring . chars , taok) ; 

ledit : treal : =«arr tor eal( estring . char s , taok) ; 

bedit:taok:=»(estring.chars[l] in ['0','!']); 

pedit:taok:-(estring.chars[l] in ['O'./'Z']); 

medit : taok : -mlcheck ( estring , chars ) ; 

pmedit : taok : -pmlcheck( e string » chars ) ; 

redit: treal :-arr tor eal(estring . chars , taok) ; 

end; 
aok:— taok; 
END ; 

— . — — 

(* save entry 

(* — *) 

PROCEDURE saveit ' r 
var x : integer; 
BEGIN 

if estring.lenOO then 
begin 

erec [ entry } .val:-' '; 

for x:— 1 to estring. len do erec[entryj . val[x] :=» es tring. chars [ x] ; 
. end; 
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END ; 
(* 

(* adjust cursor 

(* *) 

PROCEDURE adjpos ; 

BEGIN 

entry (entry + 1) MOD maxentry ; 
END ; 



*** GRID DISPLAY UNIT PARAMETER MENU ***' ,50) ; 



(* 

(* init screen and table 

(* *) 

PROCEDURE initialize ; 
VAR x : INTEGER ; 

BEGIN 

quit FALSE ; 

WINCOPYREMOTERECTANGLE (NIL , optr , orect , opoint , 0) ; 
df ont : - WINSETFONT ( If ont , f onrec , 0 ) ; 
CONRESETDISPLAY; 
CONDEFCSR( FALSE); 

CONMOVECSR<0,1) 
CONLINEOUT( ' 
CONMOVECSR(0,3)> 

CONLINEOUTC DATA LINK REFERENCE POINT ( meters )..E: N: 

Alt: ',63); 
CONMOVECSR(0 f 5); 

CONLINEOUTC FIRE UNIT LOCATION ( meters ).. E: N: 

Alt: ',63); 

CONMOVECSR(0,7); CONLINEOUT( ' MAGNETIC NORTH DECLINATION TO GRID NORTH 

(Mils) E:',54); C0NMOVECSR(0,9) ; CONLINEOUTC ALERT RANGE ( meters 

) :',32); CONMOVECSR(0, 11) ; CONLINEOUTC AUDIBLE ALERT 

(0-off/l-on)... :\32); CONMOVECSR<0 , 13) ; CONLINEOUTC AUTOMATIC HOOK 
(0-off/l-on). . :',32); C0NMOVECSR(0, 15) ; CONLINEOUTC DEMO MODE 

(0-off/l-on) :',32); CONMOVECSR(0, 17) ; CONLINEOUTC PRIORITY 

(0-off/l-on) :',40); CONMOVECSR(0,19) ; CONLINEOUTC START 

OF PRIORITY SECTOR (mils) :',40); C0NMOVECSR(0 , 20) ; 

CONLINEOUT( 9 END OF PRIORITY SECTOR (mils) : ' , 40) ; 

CONMOVECSR(0,21); 

CONLINEOUT( ' VELOCITY CUTOFF : 9 ,40) ; 

CONMOVECSR(0,22) ; 

CONLINEOUT( ' ALTITUDE CUTOFF : ' ,40) ; 

CONMOVECSR(0,23); 

CONLINEOUTC ** <esc> to return to Monitor **',33); 
entry :~ 0 ; 
erec[0] .xpos := 42 ; 
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erec| 


0].ypos : 


— 


3 ; 


erec| 


0] .mlng -: 


- 


7 i 


erecj 


0] .editt: 


- 


ledit; 


erec 


LJ.xpos : 


- 


52 ; 


erec| 


1] .ypos : 


wm 


3 ; 


erec| 


1] .mlng : 


- 


7 ; 


erec| 


lj. editt: 


- 


ledit; 


erec| 


2] .xpos : 


- 


64 ; 


erec| 


2]. ypos : 


- 


3 ; 


erec| 


,2J. mlng : 


- 


7 ; 


erec| 


2] .editt: 




ledit; 


erec| 


'3 J. xpos : 




42 ; 


erec| 


*3] .ypos : 




5 ; 


erec| 


3], mlng : 


- 


7 ; 


exec | 


;3] .editt: 


- 


ledit; 


erec| 


>] .xpos ; 


- 


52 ; 


ereci 


'4]. ypos : 




5 ; 


erec| 


;4] .mlng : 




7 ; 


erec 


>] .editt: 




ledit; 


erec 


"5] .xpos : 




64 ; ' 


erec 


[5] .ypos : 




.5 ; 


erec 


'5] .mlng : 




7 ; 


erec| 


;5J .editt: 


— 


ledit; 


erec] 


[6] .xpos : 




55 ; 


erec| 


[6]. ypos : 




7 ; 


erec 


|6] .mlng : 




7 ; 


erec 


; 61 .editt: 


- 


pmedit; 


erec 


[7] .xpos 


- 


33 ; 


erec 


J ] -ypos • 




9 ; 


erec 


*7] .mlng • 




5 ; 


erec 


[7] .editt. 




iedit; 


erec 


8] .xpos 




33 ; 


erec 


'$] .ypos 




11 ; 


erec 


8] .mlng 




i ; 


erec 


>] .editt 




bedit; 


erec 


9] .xpos 




33 ; 


erec 


1.9-].. ypos 




13 ; 


erec 


;9] .mlng 




l ; 


erec 


[9] .editt 




bedit; 


erec 


'10] .xpos 


3S ; 


erec 


;10 ] .ypos 


15 


erec 


; 10] .mlng 




- l ; 


erec 


[10]. editt:- bedit; 


erec 


;11] .xpos 


:--41 ; 


erec 


.ypos 


:- 17 ; 


erec 


11] .mlng 


1. ; 


erec 


11]. editt:* bedit; 


erec 


'12] .xpos 


:- 41 ; 


erec 


;12] .ypos 


:=■ 19 ; 


erec 


;i2] .mlng 


■= 7 • 


erec 


; 12] .editt:- medit; 


erec 


[13] .xpos 


:- 41 ; 


erec 


;i3] .ypos 


:- 20 ; 
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erec[13] .mlng 


=■ 


7 ; 


erec[ 13) .editt 


"* 


medit; 


erec[14] .xpos 




41 ; 


erec[14] .ypos 




21 ; 


erec[14] .mlng 




7 ; 


erec[14] .editt 


m 


redit; 


erec[15] .xpos 




41 ; 


erec[15] .ypos 




22 ; 


erec[15] .mlng 




7 ; 


erec[15] .editt 




redit; 


FOR x 0 to maxentry-1 DO 



BEGIN 

C0NM0VECSR(erec[x] .xpos,erec[x] .ypos) ; 
conlineout(erec[x] .val,erec[x] .mlng) ; 
END; 
END; 

(* 

(* save all parameters 

(* *) 

PROCEDURE saveparms ; 

VAR x : INTEGER ;b: boolean; 

BEGIN 

dlrp_coord[2] ltrunc(arrtoreal(erec[l] .val,b)) ; 

fu_coord[2] :» ltrunc(arrtoreal(erec[4] j.val.b)) -dlrp_coord[2] ; 

dlrp coprd[l] :- Itrunc(arrtoreal(erec[0] .val.b)) ; 

fu>oord[l] ltrunc(arrtoreal(erec[3] .val,b)) -dlrp_coord[l] ; 

dlrp_coord[3] ltrunc(arrtoreal(erec[2] .val,b)); 

fu_coord[3] ltrunc(arrtoreal(erec[5] .val,b)) -dlrp_coord[3] ; 

alert range:-trunc(arrtoreal(erec[7] .val,b)) ; 

audible <erec[8] .val[l] - '1'); 

autojiook (erec[9] .val[l J - '1'); 

demo_mode :- (erec[10] ,val[l] - '1'); 

pridisp :- (ord(erec[ll] .val[l])-30h) ; 

startps arrtoreal(erec(12] .val,b)/17. 77777; 

endps arrtoreal(erec [13] .val,b)/17. 77777; 

pvel :» arrtoreal(erec[14] ,val,b) ; 

palt := arrtoreal(erec[15] .val.b) ; 

grid_mag_north :» arrtoreal(erec(6] .val,b)/17. 77777; 
IF demo_mode THEN 
BEGIN 

WINS ETALTERNATEWINDOW ( op t r ) ; 

CONMOVECSR(56 , 24) * 

CONLINEOUT ( 1 DEMO MODE ' , 16 ) ; 

WINSETALTERNATEWINDOW (NIL) ; 

END; 

df ont : - WINSETFONT (bf ont , f onrec , 0) ; 
WINCOFYREMOTERECTANGLE ( op tr , NIL , orect , opoint , 0) ; 
C0NDEFCSR( FALSE) ; 
END; 
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c* - 

(* alarm and display old val 

(* *) 

PROCEDURE writeerror ; 

BEGIN 

beepit; 

CONMOVECSR(erec[ entry] .xpos,erec[ entry] .ypos) ; 
conlineout(erec [entry] . val, erec[ entry] .mlng) ; 
END; 



(*- main proc - *) 

PROCEDURE syspar; 
BEGIN 

initialize ; 
WHILE NOT quit DO 
BEGIN 

poscursor ; 
getstring ; 
IF aok THEN 

BEGIN 

saveit ; 

adjpos ; 

END 
ELSE 

writeerror ; 
END ; 
saveparms ; ✓ 
END ; 



PROCEDURE update_parm(tf: boolean) ; 
BEGIN 

IF tf THEN syspar; 

END- 
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$NOLIST 

$C0MPACT( -const in code-) 

MODULE stingerhandler ; 

$INCLUDE ( ' w' incs ' common, inc~text~) 

$INCLUDE (Wincs'conpas.inc-text-) 

$INCHJDE < 1 w' incs 1 ospasprocs . inc-text-) 

$INCLUDE ( 1 w 1 incs 1 ospas types . inc~text~) 



(* INTERFACE SECTION *) 
(* *) 

PUBLIC tablemgr ; 
CONST synl - OAAH ; 

syn2 - 55H ; 

TYPE 

byte_int - RECORD 

CASE BOOLEAN OF 

TRUE : (b: ARRAY [1..2] of BYTE) ; 
FALSE: (i: INTEGER); 
END ; 

cal_type - ARRAY [ 0 . . 4 , 0 . . 4 ] of REAL ; 
clock type - RECORD 

CASE BOOLEAN OF 

TRUE : (b : ARRAY [-1..4] of ' BYTE) ; 
• FALSE: ( i : LONGINT) ; 
END { record } 

VAR 



todclock 


clock type ; 


capture : 


BOOLEAN; 


hook_x 


INTEGER; 


hook_y 


INTEGER; 


hook_z 


INTEGER; 


in_range_ bit; 


INTEGER ; 


status bit 


. INTEGER ; 


led_bit 


. INTEGER ; 


hook_a_track' 


• BOOLEAN ; 


hook_az 


REAL; 


hook_el 


REAL; 


hookjrange 


REAL ; 


sting_az 


byte_int ; 


sting__el 


• byte int ; 


sting_on 


BOOLEAN ; 


cal tbl 


cal type; 


el_off 


REAL; 


lockon 


BOOLEAN; 


grid_mag_north: REAL; 



PUBLIC tablemgr ; 
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PROCEDURE hookj>rocess ; 
PROCEDURE stingjiook ; 

PUBLIC s tinge rhandler ; 
PROCEDURE sting_init ; 
PROCEDURE sting_it ; 

PUBLIC stingerhandler; 
VAR sp :.WORD ; 



PRIVATE stingerhandler 
CONST devname - ' 

sting_length 

fifolength 

sting_delay 

az_lsb 

elJLsb 

stingjnax_rng- 5000,0; 

stingjnlnjcnp- 1000.0; 

polljnax 

deg^rad 



' * serial' 

7; 

250 ; 
30 ; 
0.125; 
0.3515625; 



- 40; (*28jan86*) 
0.01745329252; 



TYPE 



VAR 



stattype « ARRAY [1. .15] of byte ; 
fifoptr - A fifobuffer ; 

fifobuffer - ARRAY [1. .fifolength] of BYTE ; 
f ifotype - RECORD 

mode : CHAR ; 

ptr : fifoptr ; 

length : WORD ; 
END; 



az_error 


byte_int ; 


el error ; 


byte_int ; 


fifo. : 


fifotype ; 


stingfifo : 


fifobuffer ; 


serialid : 


WORD ; 


ch,kb 


. CHAR ; 


parblock 


' PACKED ARRAY [1..9J of 


pathname ; 


PACKED ARRAY [1..8J of 


reserved : 


BYTE ; 


error ; 


WORD ; 


actual : 


: INTEGER ; 


sting_start 


• INTEGER ; 


row, col : 


INTEGER ; 


stingjbuff er : 


: ARRAY [l..stingJLength] 


statrec 


: stattype ; 


stop J 


• BOOLEAN ; 


sting_state 


INTEGER ; 


csum 


BYTE ; . 


sting_io_out 


ARRAY [1..7] of BYTE ; 
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sting_io_in : ARRAY [1. .sting_length] of BYTE ; 

sting_stat : INTEGER ; 

el_off_i : INTEGER; 

poll_cnt : BYTE; (*28jan86*) 

sendmsg : BOOLEAN; 



(* 

(* calibrate stinger az/el 

(* *> 

PROCEDURE calibrate (VAR az , el : INTEGER) ; 
VAR idx : INTEGER; 
ch : REAL ; 

FUNCTION e lJLdx(ce: REAL) : INTEGER; 
BEGIN 

IF ce<2.5 THEN el_idx:-0 ELSE 
IF ce<7 . 5 THEN eljtdx:-l ELSE 
IF ce<12.5 THEN el_idx:-2 ELSE 
IF ce<17.5 THEN el_idx:~3 ELSE 
el_idx:=4; 
END; 



BEGIN 

el:-el+el_off_i; 

idx:^l_Idx<el*az_lsb) ; 

ch : *-az*az_lsb*deg_rad; 

az:=-az + TRUNC( (cal_tbl[0 , idx] 

cal tbl[l,idx]*sin(ch) 
cal~tbl[2,idx]*cos(ch) 
cal_tbl [ 3 , idx ] *s in ( 2*ch ) 
cal_tbl[4,idx]*cos(2*ch) 
grid_mag_north)/az_lsb) ; 

IF az >- 2880 THEN az az-2880 ELSE 

IF az < 0 THEN az az+2880; 

END; 



+ (* deviation a 

+ (* deviation b 

+ (* deviation c 

+ (* deviation d 

+ (* deviation e 



*) 
*) 
*) 
*) 
*) 



<* mag north deviation *) 



(* serial i/o error 

(* *) 

PROCEDURE commerr (error: WORD) ; 
BEGIN 

IF NOT ( error in [997,998,999,403] ) THEN wrapup; 
END; 



(* serial fifo check 

(* *) 

FUNCTION char_det : BOOLEAN ; 
VAR x : INTEGER ; 
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BEGIN 

OSGETSTATUS(serialid, statrec, 15 , error) ; 

IF statrec[ll] O 2 THEN error err r + statrecfll] + 1 ; 

IF error O 0 THEN commerr ( error ) ; 

char_det (statree[8] O 0) AND (error - 0) ; 

END; 

(* — 

(* serial shutdown 

(*-" - - *) 

PROCEDURE wrapup; „. 
BEGIN 

sting_on FALSE ; 
polljcnt :=poll max; 
parblock[l] CHR(5) ; 

OSSETSTATUS (serialid,parblock, 1, error) ; 
OSCLOSE(serialid, error) ; 
OSDETACH(serialid, error) ; 
END; 

(*- — --— 

(* comput LED blinking rate 

(* - - *) 

FUNCTION az_rate(error: integer) : integer; 

VAR trate: integer; 

BEGIN. 

IF ABS (error) <- 16 THEN trate :-0 ELSE - fr 
trate :-ROUND(60+(185- (ABS (error DIV 16) * 2.05))); 
if error < 0 THEN* 

trate trate* 256; 
az_r ate; -trate; : 
END; 

(* — 

(* comput LED blinking rate 

(* *) 

FUNCTION el_rate (error: integer) : integer ; 

VAR trate: integer; 

BEGIN 

IF ABS (error) <- 16 THEN trate :~0 ELSE 

trate ;-R0UND (60+(185- (ABS (error DIV 16) * 4.1))); 

if error > 0 THEN 

trate :~ trate * 256; 
el_r ate : «trate ; 
END; 



{ 

I Procedure send_stinger 

I PURPOSE : builds stinger message in byte format 

( INPUT : az_error 

{ el_error 

{ in_range_bit 



SUBSTITUTE SHEET 



WO 88/02841 



PCT/US87/02435 



75 

{ ledbit 

{ cage_bit 

{ OUTPUT : sting_sting_out 

{ ) 

PROCEDURE send_stinger ; 
VAR tempa, temper by te_int; 
BEGIN 

tempa.i:-az_rate(az_error.i) ; 
tempe. i:-el_rate(el_error. i) ; 
sting_io_out[3] :-tempa.b[2] ; 
sting_io_out[4] :-tempa.b[l] ; 
sting_io_out[5] :-tempe.b[2] ; 
sting_io_out[6] : -tempe. bfl] ; 
sting_io_out[7] in_range_bit + ledj>it ; 
OSWRITE( serialid , sting_io_out , 7 , error) ; 
IF error O 0 THEN commerr(error) ; 
END ; { procedure send_stinger ) 

PROCEDURE decode_msg; 
BEGIN 

sting_az.b[2] sting_io_in[l] ; 
sting_az.b[l] sting_io_in[ 2] ; 
sting_el.b[2] sting_io_in[3] ; 
sting_el.b[l] :» sting_io_in[4] ; 
sting_stat :=» sting^_io_in[7] ; 
sting_az . i ■ (1440+sting_az . i) mod 2880 ; 

sting_el.i ( (4320-TRUNC( <sting_el. i*el_lsb)/azj.sb) ) mod 2880)-1440; 
END; 



{ Procedure s tinge r_manager 

{ PURPOSE : determines azimuth and elevation from sting_io_in 

{ calls hook_rack_process for track azimuth and elevation 

{ computes azimuth and elevation and range error data 

{ INPUT : sting_io_in 

( hook_rec 

{ OUTPUT : az_error 

{ el_error 

{ in_range_bit 

{ locked_on 

{ } 

PROCEDURE stinger_manager ; 
BEGIN 

decode_msg; 

calibrate (sting_az. i f sting_el. i) ; 
IF hook_a_track THEN 
BEGIN 

sting_hook ; 

az_error.i :- TRUNC(hook_az/az_lsb) - sting_az.i; 
IF az_error.i > 1440 THEN az_error.i az_error.i - 2880 ELSE 
IF az_error.i < -1440 THEN az_error.i :~ az_error.i + 2880 ; 
el_error.i TRUNC(hook_el/az_lsb) - sting_el.i ; 
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IF (hook__range <- stingjnax_rng) AND (hookjrange >- stingjnin_rng) THEN 
In_range_bit 8 
ELSE 

in_rangejbit 0 ; 
lockon:-(ABS(el_error.i)<-16) AND (ABS(az_error. I)<-16) ; 
send_stinger; 
END; 

END ;. { procedure stinger_manager } 



(* - ---- - 

(* Rx char driven state machine 

(* — - *) 

PROCEDURE sting_handler ; 
VAR x : INTEGER ; 

by: BYTE ; 
BEGIN 

actual OSREAD(serialid, stingfifo f statrec[8] , error) ; 
FOR x :» 1 to statrec[8] DO 
BEGIN 

by :«■* stingfifo[x] ; 
CASE sting_state OF 

0: IF by - synl THEN s tinges tate :« 1 ; 

(* also enable timout *) 

1:IF by - syn2 THEN 
^ sting_state 2 

ELSE 

. sting_state 0 

(* also disable timout *) 

2: BEGIN 

stingjstart :- stingjstart + 1 ; 
sting_io_in[stIng_start] by ; 
IF stingjstart - sting_length THEN 
BEGIN 

stingos tat e 0 ; 

(* also disable timout *) 
stingjstart 0 ; 
s tingerjmanager ; 
END; '■ 
END; 

END; (* case *) 
END; (* for. .next*) 
END; 



<* - - 

(* initialize 8274 

(*— - *) 
PROCEDURE sting_init ; 

BEGIN 

commerr(998) ; 

OSDELETEPROCESS (sp , error) ; 
wrapup ; 

(* attach the serial port --*) 
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parblock[2] 
parblock[3] 
parblock [4] 
parblock[5] 



(* mode *.) 
(* async *) 
(* 8 dtat bits *) 
(* 1 stop bits *) 
(* nadda parity *) 
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pathname devname ; 
pathnamefl] CHR(7) ; 
reserved :- 0 ; 

serialid OSATTACH(pathname,oldfilemode,r served, updateaccess , error) ; 
IF error O 0 THEN commerr( error) ; 

(* open serial *) 

OSOPEN(serialid,l, error) ; 

IF error O 0 THEN commerr(error) ; 

(* init serial *) 

CHR(l) 
CHR(l) 
CHR(8) 
CHR(l) 
CHR(O) 

OSSETSTATUS (serialid, parblock, 5, error) ; 
IF error o 0 THEN commerr(error) ; 

(* new fifo *) 

f if o. mode CHR(4) ; 
NEW(fifo.ptr); 
fifo. length :- fifolength; 
OSSETSTATUS (serialid, fifo , 5 , error) ; 
IF error 0 0 THEN commerr( error); 

(*- baud rate --*) 

parblock[l] :- CHR(7) ; (* mode *) 
parblock[2] CHR(14) ; (* 9600 *) 
OSSETSTATUS (serialid , parblock , 2 , error) ; 
IF error O. 0 THEN commerr(error) ; 

(* time out --*) 

parblockfl] :- CHR(2) ; 
parblock[2] CHR(O) ; 
parblock[3] CHR(IOOO) ; 
OSSETSTATUS (serialid , parblock , 3 , error) ; 
IF error <> 0 THEN commerr( error) ; 

(* signals *) 

parblock[l] CHR(60) ; 
parblock(2] :« GHR(28H) ; 
parblock[3] CHR(O) ; 
OSSETSTATUS (serialid, parblock ,3, error) ; 
IF error o 0 THEN commerr ( error ) ; 

(* data mode *) 

parblock[l] CHR(6) ; 
OSSETSTATUS (serialid, parblock, 1, error) ; 
IF error O 0 THEN commerr (error) 
ELSE 
BEGIN 

el_off_i ROUND (el_off/az_lsb) ; 
stingos tart 0 ; 
sting_state 0 ; 
sting_io_out[l] synl ; 
sting_io_out[2] syn2 ; 
status_bit 16 ; 
led_bit 7 ; 
in_range_bit 0 ; 
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commerr(999) ; . 
send_stinger; 
poll_cnt : -po lljnax r 

sp OSFORKPROCESS (sting_it , 20 , TRUE , 2000 r error) ; 
END ; 
END ; 



(* - 

(* task used to poll serial fifo ' 

c* - -■-...*) ; 

PROCEDURE sting_it ; 

BEGIN 

REPEAT 

OSDEIAY(sting_delay) ; . * 

IF polljqnt < polljnax THEN poll_cnt :~ poll_cnt + 1; 
WHILE char_det DO 
BEGIN 

sting^han^ler ; 

ppll_cnt:=-0; 

END; 

sting on (poll_ctit o polljnax) ; 
UNTIL FALSE ; 
END ; 
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$NOLIST 

$C0MPACT(-c nst in c d -) 

MODULE builtihracjar ; 

$INCLUDE ( % w % incs 1 common. inc~text~) 
$INCLUDE ( 1 w' incs % conpas . inc-text~) 
$INCLUDE ( % w 1 incs 1 ospasprocs . inc~text~) 
$ INCLUDE ( 1 w' incs 1 ospastypes . inc~text-) 



(* 

(* INTERFACE SECTION 

(* 



-*) 
*) 
-*) 



PUBLIC tablemgr ; 

CONST io_buff_lng - 11; 

pos_lsb « 2.34375 
vel lsb - 2.856 



{ TPQ coordinate units } 
{ TPQ velocity units } 



TYPE 



VAR 



byte_int 



clock_type 



todclock 
io buffer 



RECORD 

CASE BOOLEAN OF 

TRUE : (b: ARRAY [1..2] of BYTE) 
FALSE: (i: INTEGER); 
END ; { record } 
RECORD 
CASE BOOLEAN OF 

TRUE : (b : ARRAY [1..4] of BYTE) ; 
FALSE: (i:LONGINT); 
END ; { record } 

clock_ type ; 

ARRAY [1. . io_buf f_lng] of BYTE ; 



PUBLIC tablemgr ; 
PROCEDURE msg_handler ; 

PUBLIC BUILTINRADAR; 
PROCEDURE activateradar; 
PROCEDURE deactivateradar; 

PRIVATE builtinradar ; 

CONST tvp_lsb - 0.07616 ; 

VAR error : WORD; 

rpid : WORD; 

io_table: ARRAY [1. .10, 1. . io_buff_lng] of BYTE; 

maneuver: BYTE; 

(* *) 

(* INI TRAD AR initializes io table *) 
(* *) 
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PROCEDURE initradar; 
VAR temp : byte_int ; 

junk : clock_type ; 

count: INTEGER ; 

parmtbl : ARRAY [1.. 10,1.. 6] of INTEGER; 
BEGIN . 



maneuver : 


- 


0; 


parmtbl | 


1, 


1] 


:-67; 


parmtbl | 


1, 


2] 


:-15Q00; 


parmtbl | 


1, 


■3] 


: -10000; 


parmtbl | 


1, 


4] 


:-150; 


parmtbl | 


1, 


5] 


:-194; 


parmtbl | 


1, 


6] 


:-194; 


parmtblj 


2, 


1] 


:-67; 


parmtbl] 


2, 


2] 


;-14000; 


parmtbl | 


2, 


3] 


:-9000; 


parmtbl | 


2, 


4] 


:-150; 


parmtbl | 


2, 


"*] 


:-194; 


parmtblj 


2, 


•6] 


:-194; 


parmtbl | 


3, 


1] 


:-71; 


parmtbl | 


3, 


2] 


: -15000; 


parmtbl | 


3, 


3] 


:-1000; 


parmtbl | 


3, 


-4] 


:-50; 


parmtbl | 


3, 


5] 


:-216; 


parmtbl | 


3, 


6] 


:«216; 


parmtbl | 


4, 


1] 


:-68+8; 


parmtbl | 


4, 


2] 


:«1400; 


parmtbl | 


4, 


3 


:-2800; 


parmtbl 


4 


4' 


:-50; 


parmtbl | 


4 


5" 


:-l; 


parmtbl 


"4 


6 


:-l; 


parmtbl 


'5 


1] 


:-66+8.; 


parmtbl 


'5 


2 


: — 5000; 


parmtbl 


5 


3 


:-1500; 


parmtbl 


5 


4 


:-3000; 


parmtbl 


]5 


5 


:-43; 


parmtbl 


[5 


:s 


:-200; 


parmtbl 


6 


1] 


:-67+8; 


parmtbl 


6 


,2 


: -15000; 


parmtbl 


'6 


,3' 


:— 10000; 


parmtbl 


"6 


,4 


f:-50; 


parmtbl 


[6 


,5] 


:-194; 


parmtbl 


6 


-6: 


;-194; 


parmtbl 


7 


,1 


: -67+16 ; 


parmtbl 


'7 


,2 


:-4000; 


parmtbl 


7 


.3] 


:— 8000; 


parmtbl 


'7 


,4] 


:-150; 


parmtbl 


[7 


,5; 


:-194; 


parmtbl 


[7 


,6" 


:-194; 


parmtbl 


8 


,1" 


.--68+16; 


parmtbl 


8 


,2' 


:-1000; 


parmtbl 


8 


,3 


|:— 1000; 


parmtbl 


;8 


,4; 


|:-50; 
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parmtbl[8,5]:-230; 
parmtbl[8,6]:-250; 
parmtbl[9,l]:-68+24; 
parmtbl [9,2]:-- 1400- 
parmtbl[9,3]: — 2800; 
parmtbl[9,4]:-50; 
parmtbl[9,5] 
parmtbl[9,6] 
parmtbl[10,l] : -66+24; 
parmtbl[10,2) : — 500; 
parmtbl[10,3]:-1500; 
parmtbl [10, 4] :-1500; 
parmtbl[10,5] :-43; 
parmtbl[10,6] :-200; 
FOR count :- 1 to 10 DO 
BEGIN 

Io_table [ count, 1] :<=» parmtbl [count, 1] ; 

io_table[count,2] count ; 

terap.i round(parmtbl[count,2]/pos_lsb) ; 

io_table[count,3] temp.b[2] ; 

io_table[count,4] temp.b[l] ; 

temp.i round(parmtbl[count,3]/pos_lsb) ; 

io_table[count,5] :=» temp.b[2] ; 

io_table[ count, 6] :~ temp.b(l] ; 

temp.i r ound (parmtbl [count ,4] /pos_lsb) ; 

io_table[count,7] temp.b[2] ; 

io_table(count,8] temp.b[l] ; 

io_table[ count, 9] :« parmtbl [ count , 5 ] ; 

io_table[ count, 10] parmtbl [count , 6] ; 

junk.i todclock.i DIV 625 ; 

io_table[ count, 11] junk.b[l] ; 

END; 

END ; (* proc *) 

(* - *) 

(* UPDATE update io table and send track data *) 

(* *> 

PROCEDURE update ; 
VAR count : INTEGER ; 

temp, temps : byte_int ; 

tempv : INTEGER ; 

tl : BYTE ; 

tclock.junk: clock_type; 

BEGIN 

FOR count :=» 1 to 10 DO 
BEGIN 

tclock.i todclock.i ; 

junk.i tclock.i div 625 ; 

tl (junk.b[l] ) - io_table[ count, 11] ; 

temp.b[2] io_table[ count ,3] ; 

temp.b[l] :» io_table[ count ,4] ; 

IF lettable [count, 9] >- 128 THEN 
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tempv io_table[count,9] -256 
ELSE 

tempv rentable [count, 9] ; 
temp.i temp.i + TRUNC(tl*tempv*tvp_lsb) ; 
io_table[count,3i :- temp. b [2 J ; 
io_table[count,4} :- temp*b[l] ; 
. temp.b[2] :— io_table[count,5] 
temp.bfl] io_table[count,6] ; 
IF io_table[ count, 10] >- 128 THEN 
tempv : - io_tab le [ count , 10 ] - 256 
ELSE 

tempv io_table [count, 10] ; 
if count - 3 then 
begin 

tempv:-trunc(sin(maneuver)*40) ; 
io__table [ count , 10 ] : -tempv ; 
maneuver : -maheuver+1 * 
end; 

temp.i temp.i + TRUNC(tl*tempv*tvp_lsb) ; 
io_table[count,5] :=* temp.b[2] ; 
. io_table[count,6] temp.b[l] ; 
io_table [count, 11] ir* junk.b[ll ; 
END ,(* for next *) 
FOR count 1 to 10 DO 
BEGIN 

for tL 1 to ioJbuffJLng do loJbuffer[tl] :-io_table [count, tl] ; 

msgjhandler ; 

END; 

END ; (* proc *) 

(* *) 

(* SENDTIME sends time message *) 

(* --*) 

PROCEDURE send_time ; 
VAR x i INTEGER ; 

tclock: clock_type ; 
BEGIN 

tclock, i : -todclock . i ; 
io buffer [I] :^128; 
iojmffer[2]:-0; 
for x 4 downto 1 DO 

io_buffer[7-x] tclock. b[x] ; 
for x :» 7 to 11 do 

iojbuffer[x]:»0; 
msg_nandler; 
END ;.(* proc *) ' 

c* -- *) 

.(* RADARSTART task to simulate *) 
(* updated track msg*) 

C* - - r— *) 
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PROCEDURE radars tart; 

BEGIN 

initradar; 

REPEAT 

OSDELAY(ISOO); 

update ; 

send_time ; 
UNTIL FALSE ; 
END ; 

(* 

(* activate the radar 

(* *) 

PROCEDURE activateradar; 
BEGIN 

rpid: -OSFORKPROCESS (radars tart , 40 , TRUE , 2000 , error) ; 
END; 



(* - 

(* deactivate the radar 

(* *) 

PROCEDURE deactivateradar; 
BEGIN 

OSDELETEPROCESS (rpid, error) ; 
END; 
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$C0MPAGT 
alert :D0; 

/* audible alarm */ 

beep: PROCEDURE PUBLIC; 

DECLARE spkr BYTE AT (0DFE42H) ; 
DECLARE i WORD; 

DO i - 1 to 150; . 
spkr - 255; 
call time(2); 
spkr - 0; 
call time (2); 
END; 

END beep; 

/* no interrupt 0 */ 

zint: PROCEDURE INTERRUPT 0 PUBLIC; 
END zint; 

/* init 8087 */ 

zeroinit : PROCEDURE PUBLIC ; 

call init$real$math$unit: 
call set$interrupt(O r zint) ; 

END zeroinit; 

END alert; 
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CLAIMS 

What: is claimed is: 

1 1. A target acquisition and cueing system having a 

first sensor (2) for determining the position of targets 
and a display (26) for displaying the positions of those 
targets relative to the location of a weapon system (34), 

5 characterized in that: 

the weapon system (34) is remotely located from the 
first sensor (2) ; 

a second sensor (70) determines the pointing 
direction of the weapon system (34) ; 

10 a computing means (24) receives from the first 

sensor (2) the location of the targets and compares the 
location of the weapon system (34) thereto to calculate 
the relative azimuth, elevation, and range of each of the 
targets from the weapon system (34) , and receives from 

15 the second sensor (70) the pointing direction of the- 
weapon system (34) and calculates the errors between the 
pointing direction of the weapon system (34) and tha 
position of the targets; 

the display means (26) displays the calculated 

20 relative azimuths, elevations, and ranges of the targets 
from the weapon system (34) ; 

a selection means (28) designates one of the 
displayed targets (6) ; and 

a sight means (32) displays to the weapon system 

25 (34) the errors calculated by the computing means (24) 
between the pointing direction of the weapon system (34) 
and the location of the designated target (6). 

1 2. The target acquisition and cueing system 

according to Claim 1 further characterized in that the 
sight means (32) also displays to the weapon system (34) 
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an indication of whether the designated target (6) is 
5 within a predetermined range of the weapon system (34) . 

1 3. The target acquisition and cueing system 

according to any preceding claim further characterized in 
that the display means (26) includes multiple displays , 
one of which comprises a situation display (78) showing a 

5 graphic presentation of the targets sensed by the first 
sensor means (2) iri relation to the weapon system (34) 
and another of which comprises a parameter display (80) 
showing numerical data relating to characteristics of a 
selected target relative to the position of the weapon 

10 system (34) * 

1 4. The target acquisition and cueing system 

according to any preceding claim further characterized in 
that the computing means (24) calculates an alert range 
representing a predetermined range from the weapon system 

5 (34) and provides an audible alert when a target has been 

calculated to have entered the alert range. 

1 5 m The target acquisition and cueing system 

according to any preceding claim further characterized in 
that the weapon system (34) comprises a portable 
launcher. 

1 6 • The target acquisition and cueing system 

according to any preceding claim further characterized in 
that the computing means (24) comprises a portable 
computer. ■ 

1 7. The target acquisition and cueing system 

according to any preceding claim further characterized in 
that it comprises a communication system located between 
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the first sensor (2) and the computing means. (24) having 
5 an encoder (16) for encoding the locations of the targets 
into a digital message; a frequency modulator for 
frequency modulating the digital message; a transmitter 
(18) which transmits the frequency modulated message; a 
receiver (20) which receives the frequency modulated 
10 message; and a demodulator which demodulates the message 
into a digital message to be received by the computing 
means (24) . 

1 8. The target acquisition and cueing system 

according to any preceding claim further characterized in 
that a human operator (38) uses the sight (32) in 
launching the weapon (36) from the weapon system (34). 

1 9. The target acquisition and cueing system 

according to any preceding claim further characterized, in^ 
that a human operator (28) uses the display (26) to 
prioritize displayed targets and designate one of the 

5 targets (6) . 

1 10. The target acquisition and cueing system 

according to any preceding claim further characterized in 
that the display (26) is located at a command center 
which is remote from the weapon system (34) and the first 

5 sensor (2) and which is in communication with multiple 
weapon systems. 
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